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Editorial 


Ouf ! Exposer dans trois salons sur la micro-informatique en six semaines. c'est franchement trop … 
Certes. cela nous a donné l'occasion de rencontrer de nombreux lecteurs anciens et nouveaux, mais il 
est difficile de gérer trois salons puis d'exploiter leurs résultats sans prendre de retard. 


Le Sicob Printemps s'est très bien passé, avec un monde fou autour des stands d'Apple et de Pom's. 


Un peu moins de monde à Micro Expo, dans un style plus “professionnel” Et, pour couronner le tout. HS 
ce tout premier Apple Expo très réussi. où nous avons eu le plaisir de rencontrer Steve Wozniak (Woz a 
pour les intimes). Bill Budge (créateur entre autres de Raster Blaster. Pinball Construction Set et Mouse- sz 
Paint) et Howard Marks {créateur de Jane), parmi d’autres artistes. Quand pourrons-nous ainsi faire Ja Er 
connaissance d'un créateur de matériel ou d’un auteur de logiciel fançais devenu milliardaire à moins EE 
de 25 ans ? Dans longtemps. hélas, je le crains. Es 

uz 
Les deux premières revues françaises de micro-informatique spécialisées sur un matériel étaient Pom's AE 
et La Commode, en septembre 1981. I y a aujourd'hui cinq revues francophones sur FIBM PCXT, LH 
deux sur l'Apple, … au total une bonne quinzaine. Nous fêtons la naissance récente de Théophile, là ei 
revue pour utilisateurs du TO7 de Thomson Nous avons bien ri quand nous avons appris que là Hi 
nouvelle version du TO7 s'appelait le MO5. nous aurons alors peut-être une revue baptisée Hémo- tai 


phile, dont le slogan pourrait être “La revue des vampires de l'informatique” 


Dans ce numéro. vous trouverez tout d'abord de nombreux bancs d'essai Guy Lapautre vous pré- 
sente Thinktank et le résultat de ses tests sur la compañbilité entre l'Apple / et son ‘grand frère” //e 
Alexandre Duback à vu pour vous LIGHT 1, et Alexandre Avrane vous livre ses premières ré- 
flexions sur ProDOS et Bugbuter. Dans le domaine du matériel, Vincent Plassard nous fait vivre sa 
rencontre avec les lecteurs 1 méga de Micro-Expansion, tandis que Kriss Grafiti et moi-même vous 
donnons quelques nouvelles du Macintosh. 


Gérard Michel poursuit la série d'initiation à l'assembleur et vous présente également le BASICIUM. 
un Applesoft enrichi pour la gestion d'écran et la saisie de variables. En toute logique. Roland Jost 
vous offre des PEEKS à gogo après les POKESs du Pom's 11. Encore de nombreux utilitaires dans ce 
numéro. avec la documentation de tables de shapes par Erick Ringot, l'impression des variables d'un 
programme Basic par Laurent Esnault, des routines de HOME présentées par Philippe François, un 
programme de réduction des images HGR par Patrice Neveu et un petit outil d'analyse de la VTOC 
par Guy d’Herbemont 


Dominique Bernardi vous permet d'exercer votre adresse avec Ordralphabetix et Jérôme Leclerca 
propose un bloc-notes à tous ceux d'entre vous qui perdent leurs ‘petits papiers”. Les micro-informa- 
tions du jour vous seront présentées par Jean-Michel Gourévitch et vous trouverez également dans 
ce numéro 13 un sommaire thématique des articles publiés par Pom's de ses origines jusqu'au numéro 


12. 


Depuis ce dernier numéro s'est créé le club Apple; il compte plus de 2000 membres en moins de deux 
mois. Î} est vrai que ce club bénéficie du soutien total d'Apple Seedrin, ce qui n’est pas négligeable. 
Comme notre revue, il semble avoir pour but d'apprendre aux utilisateurs Apple à tirer un meilleur parti 
de leur matériel. Nous ne pouvons qu'encourager un tel objectif 


À tout hasard, nous vous rappelons que Pom's recherche toujours un collaborateur (temps partiel ou 
temps plein) connaissant trés bien l'Apple. au moins au niveau du Basic et de l’assembleur, capable 
d'écrire clairement et sans faute d’ortographe. Aucune contrainte de sexe ou d'âge … 


Pour finir, nous vous donnons rendez-vous fin septembre, au stand 172 de la boutique micro du Sicob, 
sur le parvis de La Défense. 


Hervé Thiriez 


En couverture : STEVE WOZNIAK et BILL BODGE à Apple-expo 
(phote: J.L. DESNOS) 


Ont coïllaboré à ce numéro : Alexandre Avrane — Dominique Bemardi - Alexandre Duback — laurent Esnault —- Guy d'Herbement — 
Philippe François — Jean-Michel Gourévitch — Kriss Graffiti — Roland Jost —- Guy Lapautre — Jérôme LeclerG — Gérard Miche! — Patrice Neveu 
— Vincent Plassard — Erick Ringot — Hervé Thiriez. Rédacteurs : Alexandre Avrane — Gérard Michel Dessins : Laurent Bidot. Directeur 
de la publication - rédacteur en chef : Hervé Thiriez. 

Slège social : Editions MEV - 49, rue Lamartine - 78000 Versailles - Tél. : (3) 951.24.43. 

Diffusion N.M.P.P. : Sophie Maraez - Tél : {1} 2 40.22.01. 

Composition : Télécompe - 13-15. avenue du Petit Parc - 94300 Vincennes - Tél. : 328 18.63 

Impression : Rosay - 47. avenue de Paris - 94300 Vincennes - Tél. 328.18. 63 





Pom's n° 13 5 


Matériels et cartes 
Inverseur DOS 3 2-D0S 3.3 

Survol de l'Apple /// 

Les: mémoires de masse 

La cärte M/DOS 6502 à l'essai 
Banc-test de {a carte Legend 1268K DE 
La souris de Lis= 

L'Apple //e à l'essai 

Le Basis 1086 a l'essai 

Macarticle 1i 
Ün mois avec le MacinLosh 12 
La famille Apple // 12 
L'Apple //c est né ! 12 


BUNUS D NO — 


Analyse de progiciels 

P£ÆE.: le Program tine Editor Î 
CR.AE.: Co-Residant ApplesofLEditor 1 
Les utilitaires de documentation : 


RS | 


Dakin S - Appte Doc - DOS ToolKil 2 
Les éditeurs de texte : Applewriler, 

Easywriler et Magic Window 2 
Bases de données sur Apple S 
CX Multigestion à l'essai 5 
The Last One à l'essai 6 
CORP. à l'essai 6 
Le cours de Basic ApplesoftAndré Finot 7 
Multiplan à l'essai 7 
PILOT et SUPERPILOT a l'essai (oj 
Présentation du H-BASIC 8 
La magie de Magicalc 9 
CX Système à l'essai 10 
Décisionnel Graphique à l'essai 10 
MUSIC 10 
Gutenberg à l'assai 41 
Disk Manager et DBSTAG A1 
Magic Window {1 à l'essai 11 
Charts Unlimited à l'essai 12 
Analyse de Magic Mailer 12 
Disquettes de jeux A el B 12 
Pom's a vu MEM/TERM 12 
Utilisation de progiciels 
Visicalcet Applesofl 1 
Visicalcet trailement de texLe 7 
Calendrier perpéLuet avec Visicalc 10 
Conversion de Big Mac vars Lisa 25 10 
Les iogicielsde traitement de texte 41 


Des trucs pour Apple Writer 11 el //e 12 
Adaptez AppleWriter f.1 à l'Apple //e 12 
Imprimez les codes ESC de votre PLE 42 


Graphiques 

Graphiques : de tITT 2020 3 l'Appie Î 
Les adresses dy graphique 1 
Applications de graphiques HGR 2 
Controlez le nettoyage mémoire 3 
Routine de présentation graphique | 
Création de Lables de formes 4 
Création graphique en Pascal =) 
Logiciei graphique en Pascal 6 
Graphique. quand tu nous tiens … 7 
Graphiques et logique 7 
Hard Copy Seikosha GP80 7 
Fondu enchaîné 7-9 
Création de caractères graphiques 8 


HS RANERNASANXRAMENT 
pe 


Cepie basse résolution d'écren HGR 9 
Fusion de tablesde shapes 9 
Un éditeur graphique HGR 9 
MATGRAPH : votre rouline graphique 10 
Compression d'images HGR 10 
Dessins avec une planche à clous 10 
Aide au graphique HGR 10 
Extremum absolu de fonctions de 

plusieurs variebtes 11 
Effets stroboscopiques 11 
Tracé de courbes en conversationel 11 
Un éditeur de shapes 12 
Tracé rapide de certles 52 


Jeux et loisirs 

Un programme aide-mémoire 1 
Changez votre poignée de jeux 1 
La leÇon de calcul 2 
Le jeu de la vie 2 
Réponse au concours de Pom's 4 
Robotwar 4 
Tortue Amper'sand 6 
Le lote, c'est facile. 6 
Cryptographie à cleF publique 7 
Les quatre ponls 7 
Reconstiluez le puzzle 9 
Le bavard [fail parler et chanter Apple 11 


Programmes utilitaires 
Des instructions en une lettre 
Déplacemenl de programme assembleur 
Analyse du contenu des slols 
Réparez votre APPEND 

Réparez votre RENUMBER 

Faites le ménsge dans lamémoire 
Spreclien Sie DOS ? 

S.HLAM . une routine bien pralique 
Un exemple de HELLO 

Copie d'écran texle 

Personnalisez vos disqueltes 

Un programme de TRACE sélective 
Un calalogue général en Pascal 
Chargez vile vas fichiers binaires 
Un PRINT USING d'intérêt général 
Le clavier magique 

Transfert d'Applesoft vers EXEC 
En pragremmo de HELLO complet 
Un analyseur de syntaxe 

Dump Pascal 

Gestion de masques en Basic 

FID, MUFFIN et DEMUFFIN 

Boot PLE + CRAE 

Francisez le DOS 

Caïculs en format gestion 
Recherche de codes binaires 

Le Pascel à 12 chiffres 
Super-impression de chaines 

Mise en forme de lisLings 

Lecture de fichiers TEXT 

Jonglez svec votre calalogue 
Créez des commandes aulomaliques 50 


! 


CU NN NON ND — = — 


ds 
LE 
B D Ci Ci 


QLBOODOMMI JIM SN D BB 


Accès direct aux disquettes {0 
Edition des fichiers Basic 10 
Suppression de fin de programme 19 
Chargement automatique de l'integer 10 


Sommaire thématique de Pom's 


Une astuce pour supprimer les REMs 11 
Programmes de menu (Basic el Pascal) 11 
Comparaison de programmes assembleur 1 1 
Comparaison de programmes en Basic 11 


Tri rapide en assembleur It 
Un “type-ahead” en Appiesoft 11 
Disque virtuel :5K t2 
Patch du DOS 35 12 
Des tableaux de dimension variable 12 
& ONERR GOTO 12 
Programme assembleur à la fin d'un 
programme Basic 12 
PEEKS et POKES en Pascal 12 


Pour votre apprentissage 
Programmer en Pascal 

Formatez vos programmes 
Apprenlissage de l'assembleur 3- 
Les fichiers EXEC 

Notions de base : chargement de binaire 
Notions de base : ies fichiers 

Notions de basa : INPUT généralisé 
Ergonomie des programmes 

Des programmes relogeabies 

Création de fichiers EXEC 

Mini-base de données 

Nolions de base : gestion de fichiers 
Accélérez vos programmes en Basic 
Censeils aux débutants 

Dennez du caractère 3 votre imprimante 
Gestion de fichiers avec RWTS 


Psaudo-epcodes de divers assembleurs 
INPUE gener anse qe LABeaUX (Ù 


iniliation s l'assembleur 11-12 


© © © © > M y + 1 UMR Li Li DB ND — 


Pour devenir expert 
Overtay dynamique 

Ineursion dans les mystères du DOS 
3 secondes pour trier 

Conversion Pascal/Basic/Pascal 
Les codes ASCII épluchés 

Les arcanes du moniteur Apple /// 
Le moniLeur étendu 

La PROM PSA désassemblée 

Des POKEÈS à gogo 

Pommesoft 

Nombres flottants en langage machine 12 


Z2=omssUuNN — 


Et tant d'autres articies 
Des boucles a s'arracher les cheveux ! 
Communication avec l'Apple 3-10 
Communiquez grèce au formal DIF 

La programmation facilitée 

HAIFA : un amper-interpreleur complel 
Tableaux de Laitiedéclarée en Pascal 
Générateur el programme de test 
Effacement de director y en Pascal 

Allo, Questel ? 

Saisie de réels en Pascal 

Saisie mulLipage en Pasca} 
Editeur-compasiteur de Lexle 

Gestion de compte bancaire 

Caractères géants a l'imprimante 

Le CalculateurEntier 

Exp(Pi* Sgr(163)) est-ilenlier ? 

Le micro-informalique au Japon 12 


FN So wbommuvouumn 


Pom's n° 13 


Il V a des femmes qui marchent à 
l'ambition, d’autres à l'argent. d'au- 
tres à la sécurité, moi je marche à 
l’affection, et j'ai tout l'équipement 
qui va avec: un grenier plein de 
trucs dont je ne sais pas me débaras- 
ser, un chien, quelques vrais amies, 
des vrais Jules et des Jules vrais, et 
bien sûr, un collaborateur, OLI- 
BRIUS INOXYDABELE 


Comme on passe beaucoup de 
temps ensemble. il faut qu'il soit 
sympathique, solide, agréable à re- 
garder, capable d'abattre un travail 
de ttan (mais un petit peu moins 
que moi quand même, histoire de 
garder le leadership dans mon entre- 
prise), et puis surtout il faut qu’il 
m'aime d’un amour ergonomique. 
Cet amour régule les rapports de tra- 
vail beaucoup mieux que les syndi- 
cats. mais il comporte un risque im- 
portant : et si tout à coup Inoxydable 
tombait amoureux de quelqu'un 
d'autre? Son rendement risquerait 
d'être considérablement diminué. 
C'est pourquoi j'en suis arrivée à la 
conclusion qu'il fallait lui trouver une 
autre passion. et la lui trouver moi- 
même. Mais qui ? Mais quoi ? 


C'est à ce moment là que les trom- 
pettes célestes ont soufflé leurs notes 
électroniques et que Jean-Louis Gas- 
sée, le directeur d'Apple France, 
m'est apparu en rêve, nageant la 
brasse dans une piscine d'octets phos- 
phorescents. Naturellement, comme 
je ne connaissais rien à rien, cette 
première vision resta pour moi totale- 
ment énigmatique. 


Ensuite, j'ai eu d'autres visions tout 
aussi sybilines, mais de plus en plus 
fréquentes. Une deuxième, où mon 
INnoxydable, habillé en prestidigita- 
teur, sortait des pommes et des 
souris d'un écossais débonnaire et 
compréhensif. Et enfin une troi- 
sième, un écossais qui soufflait dans 
une cornemeuse faite avec deux très 
belles pommes grignotées.. 


Je suis obligée d'être un peu sévère 
avec le service d'apparitions d’Apple, 
mais je n'y comprenais toujours rien, 
jusqu'au jour où j'ai rencontré le ca- 
pitaine de l'informatique légère, 
Jean-Louis Gassée, en chair et en os, 
et où je lui ai raconté mes rêves. II 
était assis sur un trône doré, très 
beau, et il m'a dit « Quand le rêve 
reviendra, n'oubliez pas de pronon- 
cer cette phrase + J'INITIALISE LA 
DISQUETTE + », C’est ce que j’ai 
fait et, en me réveillant le lendemain 
matin, j'ai vu, à côté de mon lit, un 
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Mes premiers émois 


Macintosh qui avait envie de me faire 
de l'œil. et je lui ai donné l'autorisa- 
tion de le faire Depuis ce jour. je 
suis une cheftesse d'entreprise ra- 
dieuse. inoxydable est amoureux de 
Mac et travaille deux fois plus et 
deux fois plus rapidement. Quant à 
ma vertu informatique, elle est défini- 
tivement compromise. Îl faut dire 
qu'informatiquement parlant, j'étais 
totalement vierge et que l'initialisa- 
ton me semblait une épreuve insur- 
montable dès que je jetais un regard 
inquiet en direction des ordinateurs à 
langage BASIC, Pascal, ou autres. 
Avec Mac, pas besoin de passer par 
ces chemins épineux pour bénéficier 
de ses avantages. C’est un profes- 
sionnel du charme, et c'est lui qui 
s'adapte à vous. Vous voulez couper. 
coller, copier ? Il vous suffit de poin- 
ter la souris dans un menu écrit en 
français français, et de choisir. 





C’est d’abord la suppression du bruit 
qui m’a séduite. Depuis des années, 
Inoxydable et moi écrivions dans la 
même pièce, sur deux machines 
électriques qui faisaient un raffut 
d'enfer, et, au-delà d’un certain 
nombre d'heures de travail, on était 
obligé de mettre des boules Quiès, 
ce qui nuïsait gravement à la 
communication. 


Ensuite, mon bureau, qui avait une 
réputation quasi internationale de 
foutoir, est devenu clair et ordonné. 
Ce n'est pas très informatique, ce 
que je vous dis là, mais l'atmosphère 
qui règne dans un bureau a une in- 
fluence considérable sur la qualité du 
travail. Au lieu d’être en lutte perma- 
nente contre les stress du bruit, du 
dossier illisible, du papier perdu, du 
carbone sale et des archives envahis- 
santes, l’espace-boulot a pris un air 
dé vacances et on peut même y tra- 


Kriss Graffiti 


vailler en musique, avantage appré- 
ciable dans la profession que 
j exerce. 

Bien sûr, au début, Macintosh a un 
petit côté « hallucinogène à la califor- 
nienne » et la distorsion qu’il exerce 
sur le temps n'est pas sans danger. 
S'il est vrai que mon temps de travail 
est réduit de plus d'un tiers par les 
avantages considérables du traite- 
ment de texte, je dois avouer que les 
joies de MacPaint et MacWrite et le 
confort nouveau qu'il m'offre font 
que j'oublie totalement l'heure et 
qu'il n’est pas rare que je me re- 
trouve à 6 heures du matin en train 
de peaufiner un texte que j'aurais 
abandonné depuis longtemps si 
j'avais eu à le retaper entièrement. 
Mais. ce n'est pas moi qui vous l’ap- 
prendrai, quand on passe des nuits 
blanches avec quelqu'un, c'est que 
l'échange d'information est agréable. 


Travailler au mot près, à la virgule 
près. offre une liberté de création to- 
talement révolutionnaire et dame le 
pion à la paresse. L'esprit, dégagé de 
toutes sortes de contraintes pénibles, 
retrouve la joie pure de l'écriture. 


En plus, c’est joli. Les caractères sont 
variés, dans leur forme et dans leur 
taille, l’écran est clair, on peut en ré- 
gler la luminosité, on peut dessiner et 
intégrer les dessins aux textes, ou 
l'inverse, et quand on est vraiment 
accro, on peut mettre le beau Mac 
dans son sac de voyage et l'emporter 
en week-end. Mais oui, mais oui, ça 
m'est arrivé ! 


Ah, une dernière question, quel est 
le sexe de Mac ? 


Inoxydable prétend que c’est une 
femme, à cause de la pénétration des 
disquettes indispensable avant toute 
communication vraiment intime, mais 
moi je prétends que c’est un homme 
qui a l'extrême délicatesse de mettre 
un KILT et de montrer ses jambes, 
qu'il a fort jolies, en cette saison pro- 
pice aux amours. 


Maintenant que je suis initialisée, 
j'envisage sérieusement de faire un 
lexique des mots tendres ou injurieux 
que les utilisateurs d'ordinateurs em- 
ploient vis-à-vis de leur nouveau 
compagnon, et qui se répercutent 
dans la vie quotidienne. Par exemn- 
ple, quand un homme me fait la 
cour d'une manière qui me déplait ? 
Je lui réponds SYNTAX ERROR.. 
Sans doute parce qu'avec Macintosh 
je n'ai jamais le chagrin d’en amiver 
à de telles extrémités. [el 
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BONJOUR LES PRIX !! 


NOS PRIX SONT F TTC 


























Carte langage 450 Speech card 390 
Carte 128 k ram 1550 Carte horloge 550 
Carte 80 colonnes 745 Joystick 165 
Interface série 600 Ventilateur 280 
Super série 1100 Contrôleur de drive auto switch13/16 380 
Interface parallèle 420 Microdrive 3” 2200 
Grappler + buffer 16 k 1350 Moniteur vert 12” 950 
Carte modem 2200 Disquettes 5” 1/4 S.F/D.D. par 1 boite 179/boite 
Carte Z 80 650 fi & “ 5boites 175/boite 


Wildcard 650 ” sé *“ 10 boites 170/boite 


AU-DESSUS, NOUS CONSULTER 


Carte bleue et eurocard acceptées 
Vente par correspondance : nous consulter. 


Computer 3 


3, rue Papillon 75009 Paris - Tél. 523.51.15 


(metro Poissonniére ) 








LILLE... LILLE..... LR ELLE 


m.b.d.c. PPIe //e, Apple //!, Mac-Intoch, 
BFM 186. dragon, oric, alice, casio 


m.b.d.c disquettes, Flexettes, 3M, Verbatim 
‘| listing, rubans encreurs. 


m.b.d.c le conseil, le matériel, les périphériques 
les logiciels, les consommables, 


m.b.d.c. © S-A.V. sur place. 
le Service Complet. 


un m.b.d.c. 172; RUE SOLFERINO. 59800 LILLE — TEL. (20) 57.91.87 
OUVERT DU MARDI AU SAMEDI DE 9h30 à 12h ET DE 14h30 à 19h 





L'instruction HOME est une des ins- 
tuctions les plus utilisées dans les 
programmes. Elle consiste à nettoyer 
écran texte : HOME en Applesoft et 
Page(Output) en Pascal font appel à 
la routne du moniteur située en 
$FC58 (—-936 en décimal). 


HOME, sweet HOME 


15323 généralement): 


Philippe François 


reusement très long, 





Voici une série de routines qui net- e CALL 37944: effacement vers le V t id | 
toient l'écran de manière plus origi- bas, qe one ja en 
nale en remplissant l'écran avec le e CALL 38008 : effacement vers la ee Mu Fe Ets 
caractère de votre choix. gauche: Bio M AO ER AIO SREEUER 
C2 romanes crue 24 dote e CALL 38051 : effacement vers le SPACE 
souslec built DOS et comporte centre; . N'oubliez pas d'initialiser HIMEM à 
RL e CALL 38113: effacement en ci- 37910 et de ‘’poker” le code ASCII 
6 points d'entrée : x k ; 
: seaux;, | du caractère de remplissage en F: 
e CALL 37910 effacement très ra e CALL 38184: effacement en sp 37911: ainsi POKE 37911,36 vous | 
pide (5437 cycles machine contre rale : spectaculaire mais malheu- couvrira de dollars … = ET 
1 üRG 59416 74 STA  ABRLIGNE É: 
2° 75 LBA  ABRH,X 
3 sossmsnenascersssessannnnnessscccse 76 STA ABRLIGNE-+i É 
4 + . 77 c 
S + HONE, SWEET HOME. . 78 LDY #39 jen part de la dreite wæ 
6 » ” 79 ODEPLACE LDA CADRLIGNE)},Y :deplace caract. vers bas LE 
7 nansseoscrrasasansenaaarverensssnsnss 2e STA {LIGNE} ,Y +4 
; * 81 DEY 2 
ssnssones x 82 BPL DEPLACE es: 
10 + CONST + Big Mac 83 » 
11 sonsen--e &4a CPX +66 :a-t-on atteint le mas? 
lé 85 
13 £SPACE = SAU :ascii espace se BES EFFSON 
ia ZERO = s00Ù 87 BPL NEXT ; = Jmp next. 
15 « 88 + 
16 venus. 89 EFFS8M LDY #39 : cein droit 
17 « VAR « 30 LDA #ESPACE 
18 mesure 91 EFFACE  STA (CADRLIGNE),Y 
19 + 92 DEY 
29 ADRLIGNE = S28 93 BPL EFFACE 
2i LIGNE - se 94 + 
22 COMPTEUR = SFE 35 DEC C@MPTEUR 
23 » 36 SNE ENCORE 
Dé ee 97 RTS 
25.5 38 + 
26 HCNT = s00 SS snnrxrasasrasaasassesssanss ess 
27 VENT = HENT +3 100 + EFFACEMENT VERS LA GAUCHE + 
24 XL = VCNT +1 101 rosenssecseneneusenssssnansns 
28 XR = XL+1 102 
36 YT = XR-+1 193 LDA #40 :40 caracteres par ligne 
31 YB = YT+1 104 STA  C@MPTEUR 
32 * 105 = 
BRAIN ÉSRSSS SE ES ET ES SES enssE 186 ENCSREZ LDX #ZERO :ligne semmneT 
34 + 107 NXTLIGN LOY #ZER@ :colonne de gauche 
3S sseconsosssonssransss 166 LA ABFL,X 
36 + EFFACEMENT RAPIDE * 1es STA  ADRLIGNE 
37 anscsesesesssssssssss 110 LA ABKHH,X 
38 + 111 STA  ADRLIGNE+1 
33 LBA #ESPACE 112 CONT IiNY 
40 EOR #56@ 113 LDA  (ADRLIGNE),Y 
4i LRY #19 114 DEY 
42 SUITE STA 5400,Ÿ  :lines © 8 16 115 STA  (ADRLIGNE),Y 
43 STA 5500,Ÿ  ; 2 10 18 119 iNY 
44 STA 5660. F 4 1Z 2e 117 CEY #38 :derniere celenne’ 
45 STA S700,Y  : e 14 22 118 NE CNT 
46 STA s480,Y  : Le 90 17 119 « 
47 STA S58@,Y  : 3 11 18 120 + BÉRNIERE COLONNE « 
48 STA Séae,Y  : S 13 Zi 121 + 
49 STA sS78@.Y  : 7 15 23 122 LA #ESPACE 
50 DEY 123 STA (S24).1 
S1 PL SUITE 124 INX 
S2 RTS 125 CPX #24 :üerniere iiqne? 
53 « 126 ANE NXTLIGN 
S4 » 127 » 
55 + 124 DEC  COMPTEUR 
Se srrsonseamanansennanssensss 129 BNE ENC@RE2 
57 + EFFACEMENT VERS LE BAS * 130 RTS 
56 CRLTILILLILLLLLLI EE IEELILILLIZZ) 131 + 
58 « 132 sonsassssenassecsssecescsenen 
6e LDA #24 133 + EFFACEMENT PAR LE CENTRE « 
81 STA SFÉ 134 cnnssnanssassansmsssens-euse 
62 » 155 + 
63 ENC@RE LRX #23 :derniere liane 136 LDY #20 zinitial. comcteur de boucie 
64 LA ADRL,X  :chargement de ls partie kasse 137 STY  C@HPTEUR 
65 STA ADRLIGNE :on stecke danse adrligne 158 » 
66 LA ADRH,Xx tChargement partie haute 139% SOUCLE LUX #ZERO tinitialisation iigne 
67 STA ABRLIGNE+1 140 = 
68 NEXT LA ADRLIGNE 141 NEXTLIGN LDY #is :initialisation ceienne 
es STA LIGNE 142 LBA ADRL.X 
70 LDA ADRLIGNE+1 143 STA  ABRLIGNE 
7i STA LIGNE+1 144 LDA  ADRH,X 
72 DEX 145 STA  ADRLIGNE+1 
73 LDA ADRL,X 146 + 


Pom's n° 13 














DEBLACD LBA 
ENY 
STA 
DEY 
BEO 
DEY 
BFL 


GAUCH LDA 
STA 
LDY 


DEPG LDA 
DEY 
STA 
INY 
CPY 
BEQ 
INY 
BPL 


DROIT LDA 
STA 
INX 
CPX 
BNE 


DEC 
BNE 
RTS 


(ADRLIGNE) ,Y :recuper. d’un caractere 


{ADRLIGNE)>.Y :on le deplace d’un rang 
GAUCH son sort s1 derniere col 
DEPLACD ;=JNP 

#ESPACE 

CADRLIGNE) ,Y 

#21 sinitialisation col 
CADRLIGNE) ,Y:en place un caractere 
CADRLIGNE).Y 

#35 test-on a la derniere col 
DROIT :81 oui en sert 

DEPG :=JKXP 

#ESPACE 

CADRLIGNE) ,Y 

#24 :dérniere ligne? 

NEXTLIGN 

COMPTEUR 

BOUCLE 


trossnanessensessesasasessesssseesesessssesess 


+ EFFACEMENT GAUCHE-DROITE & DROITE-GAUCHE + 


nraseocecnesssnsanemaamessensesecesesessenssse 


LDXx 
STX 

BOUCLEZ2 LDX 

GAUCHE EDA 
STA 
LDA 
STA 
LDY 

DERLACG  LDA 
DEY 
STA 
INY 
CPY 
BEQ 
INY 
BPL 

. 

BLANCD LDA 
STA 
INX 
LDA 
STA 
L>A 
STA 

. 

DEPLACDT DEY 
LDA 
INY 
STA 
BEY 
BES 
BNE 

,. 

BLANCL LDA 
STA 
INX 
CPX 
BNE 
DEC 
BNE 
RTS 


#40 
CONPTEUR 
#ZERG 

ADRL,.X 
ADRLIGNE 
ADRH, X 
ADRLIGNE+] 
#so1 
CADRLIGNE) ,Y 


CADRLIGNE) ,Y 


#39 
BLANCD 


DEPLACG 


#5AO 
(ADRLIGNE).Y :a ce nroment y=39 


ADRL.X 
ADRLIGNE 
ADRH,X 
ADRLIGNE-+1 


CADRLIGNE) .Y 


CADRLIGNE) ,Y 


BLANCL 
DEPLACDT 


#ESPACE 
{ADRLIGNE}.Y:a ce nenent y-0 


#24 ; terrine? 
GAUCHE 

CONPTEUR 

BOUCLE2 


nn nnnnnnnnnannnnnnnnnns 


L HOME" 


EN SPIRALE . 


nn nnnnnnnnnnsnsennnnnnns 


DEBOT LDA 
STA 
DEB1 LDA 
STA 
DEB2 JSR 
LDA 
STA 


DEC 
BNE 
DEC 
BNE 
RTS 


« 


ROTATION 
LDA 
STA 


#24 : peur 24 lignes 
VENT 

#40 ;: oour 40 celennes 
HCNT 

ROTATION 

#ESPACE 


$628+12 au #filieu de l'ecran 


HCNT 
DEB2 
VENT 
DEBI 
c'est finz ! 


#500 
hera qauche 


*< 
[D 


STA YT : sonnet 

LDA #23 

STA Y8 : bas 

LDA #39 

STA XR : berd droit 

JSR BAS : 

BEQ R@OT2 
ROTI JSR BAS 

DEC Y8 
ROT2 JSK GAUCHE1 

INC Ki 

JSK HAUT 

INC YT 

JSR DKOITI 

BEC XR 

LDA  YT 

CHP  YB 

BCC KOTi 

RES 
nnnnnnnnsnnnnmnnnnnmnnsennnsness 
eON SE DEPLACE VERS LA GAUCHE ET« 


e VEXS LE BAS . 
nnnnnnnnnnnnnmnnnmsnnnnnnennunss 
. 
BAS LDY XL 

LDX YB 
BAS1 DEX 

JSR CALCULE 

LDA  CADKLIGNE:,V 

PHa 

iNX 

SR CALCULE 

PLA 

STA  (ADRLIGNE).Y 

DEX 

CPX Yr 

BNE #4AS1 

RTS 
nn nn nn nnnnnesne 
*®N SE DEPLACE VERS LA DROITE ET- 


. VERS LE HAUT . 
conssssxnainnnanesencesééienssiee 
+ 
HAUT L»Y xXR 

LRX vf 
HAUTI INX 

J5R CALCULE 

LOA  CADRLIGNE).Y 

PHA 

DEX 

JSR CALCULE 

PLA 

STA  (ADRLIGNE?.Y 

INx 

CPX YB 

BNE  HAUTI 

RTS 
conrsninteneasessenvanae sera ans 


“ON SE DEPLACE VERS LE SONMET ET* 
. VERS LA GAUCHE . 
nnmnnnnnnmnn nn nn ennnennnnnnnm 
GAUCHE LDX YT 

JSR CALCULE 

LBY XL 
GAGCHE2  INY 

LD4  CABRLIGNE)D.Y 


DEV 

STA  CADRLICNE).Y 
INY 

CPY XR 

BNE GAUCHEZ 

RTS 


LE EE O  E 
° ON SE DEPLACE VERS LE BAS ET 
. VERS LA DROITE . 
EE 
2 
DR@ITI LDX YB 

JSR CALCULE 

LDY x} 
DRGIT2  DEY 

LDA  CADRLIGNE),Y 


INY 

STA  CADRLIGNE) ,Y 
DEY 

CPY XL 

BNE DROIT2 

RTS 


sv nnnnnnnnnnnnsnnns 
#"  CAÏCUL DE L’ADRESSE + 
nnnnnnonnennnnnnennnnnee 


on part du Cete gauche 
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345 CALCULE LBA  ABRH,X 


356 » 
346 STA  ACRLIGNE-+1 357 * FARTIE HAUTE DES ADRESSES PAGE TEXT » 
347 LDA ADRL.X 358 * 
348 STA  ADBRLIGNE 359 * 
345 RTS 36% ADRH HEX @640405050606607/7907 :lignes 0-7 
350 + 3ei REX 0404050566660707 ; lignes 8-15 
351 * PARTIE BASSE DES ADRESSES FAGE TEXT « 362 HEX 6404050506660707 :lignes 16-23 
352 +» 363 + 
353 ADKL HEX OUBOOUOU60080686888 ;l1qnes 0-7 364 * 
354 HEX 28A828A828A828A8$ ;lii9nes 84-15 385 LST OFF 
355 HEX SOD6S6D656D656D0 :li1qnes 16-23 


LS 


1 REM #* ESSAI SWEE POKE 37911, ASC CEMENT PAR LE C 
T HOME ** (AS) ENTRE 
30 CALL 37910: CALL 3 60 CALL 37910: CALL 3 
S HOME : VTAB 1: HTAB 7944: REM EFFA 8113: REM EFFA 
11: PRINT ‘“HOM CEMENT PAR LE B CEMENT GAUCHE D 
E, SWEET HOME.. AS ROITE-DROITE GA 
=: 40 CALL 37310: CALL 3 UCHE 
10 HIMEM: 37910: PRIN 8008: REM EFFA 7O CALL 37910: CALL 3 
T CHRS (4)"BLO CEMENT PAR LA G 8184: REM EFFA 
AD SWEET HOME" AUCHE CEMENT EN SPIRA 
20 INPUT “DONNEZ LE C 5O CALL 37910: CALL 3 LE 
ARACTERE ‘“; AS: 80S1: REM EFFA &8O END 








95S50- 6F 3S FO O5 20 6F 9S C6 
39SS8- 05 20 9F 9S E6 02 20 87 
39560- 9S E6 04 20 B2 95 C6 03 
39S68- AS 04 CS O5 90 E6 60 A4 
9570- 02 A6 OS CA 20 CS 95 B1 
39578- 28 48 E8 20 CS 95 68 91 
9S580- 28 CA E4 O4 DO ED 60 A4 
3588- 03 A6 04 E8 20 CS 95 Bt 
9590- 28 48 CA 20 CS 9S 68 91 
3598- 28 E8 E4 OS DO ED 60 A6 
3SAO- 04 20 CS 95 A4 O2 C8 Bi 
35A8- 28 88 91 28 C8 C4 03 DO 
9SBO- FS 60 A6 O5 20 CS 9S A4 
9S5B8- 03 88 Bi 28 C8 91 28 88 
3SCO- C4 O2 DO F5 60 BD E8 9$S 
35C8- 85 29 BD DO 93S 85 28 60 
SSDO- O0 
95D8- 28 A8 28 A8 28 A8 28 A8 
3SEO- SO DO 50 DO 50 DO SO DO 
3SE8- 04 04 05 OS 06 06 07 O7 
35FO0- 04 04 05 OS 06 08 07 07 
3SF8- 04 04 05 05 06 06 07 O7 


94A%- DO DA 60 AO 14 84 FE A2 
94A8- O0 AO 12 BD BO 95 85 28 
394BO- BD E8 95 85 29 B1 28 C8 
94B88- 91 28 88 FO 03 88 10 F5 
94CO- AS AO 91 28 AO 15 Bi 28 
94C8- 88 91 28 C8 CO 27 FO O3 
394DO- C8 10 F3 A9 AO 91 28 E8 
94D8- EO 18 DO CD C6 FE DO C7? 
94E0- 60 A2 28 86 FE A2 OO BD 
94E8- BO 95 85 28 BD E8 95 85 
94FO0- 29 AO O1 B1 28 88 91 28 
394F8- C8 CO 27 FO 03 C8 10 F3 
9500- A9 AO 91 28 E8 BD DO 95 
9508- 8S 28 BD E8 9S 85 29 88 
9S10- B1 28 C8 91 28 88 FO 02 
39518- DO F5 A9 AO 91 28 E8 EO 
9520- 18 BO C4 C6 FE DO BE 60 
39528- A9 18 85 01 A9 28 85 O0 
9S530- 20 4i 95 A9 AO 8D 34 06 
9538- C6 O0 DO F4 C6 O1 DO EC 
9540- 60 A9 00 85 O2 8S O4 AI 
9548- 17 85 05 A9 27 85 03 20 


Récapitulation HOME 


9416- A9 3F 

9418- 49 80 AG 77 99 O0 04 99 
9420- O0 
9428- 99 80 04 99 80 O5 99 80 
9430- 06 99 80 07 88 10 E5 60 
9438- A9 18 85 FE A2 17 BD DO 
39440- 95 85 28 BD E8 95 85 29 
9448- AS 28 8S 06 AS 29 85 O7 
9450- CA BD DO 95 8$S 
9458- 95 8S 29 AO 27 B1 28 91 
9460- 06 88 10 F9 E®& O0 FO O2 
9468- 10 DE AO 27 AS AO 91 28 
9470- 88 10 FB C6 FE DO CS 60 
9478- AG 28 8S FE A2 OO AO OO 
39480- BD DO 935 85 28 BD E8 9$S 
9488- 85 29 C& B1 28 88 91 28 
9490- C8 CO 27 DO F5 A9 AO 91 
9498- 28 E8 EO 18 DO EO C6 FE 





PR8GRAM ESSAI _ HOME; WRITE(’Donnez un caractere ’):READ(CAR): 
HOME{CAR); 
VAR EFFACE BAS; 
CAR : CHAR; HOME{CAR) ; 
EFFACE GAUCHE: 
PROCEDURE HOME(CARACTERE:CHAR): EXTERNAL: HOME {CAR) : 
PROCEDURE EFFACE BAS; EXTERNAL; EFFACE CENTRE: 
PROCEDURE EFFACE GAUCHE: EXTERNAL: HOME{CAR) : 
PROCEDURE EFFACE CENTRE: EXTERNAL; EFFACE GB _DG: 
PROCEDURE EFFACE GD DG: EXTERNAL: HOME(CAR) : 
PROCEDURE EFFACE SPBIRALE; EXTERNAL; EFFACE SPBIRALE: 
END. 
BEGIN 
HR Sa SUN Te A PT 
S .NACRO 2GE an HOME, SWEET HOME.. ; 
PLA ze o 
STA %1 RAM ANA RARE M RM Re em 
PLA s 
STA %1e1 .PROC HOME, 1 
ENDH 
.REF ADRL, ADRH 
.MACR@ PUSH ; 
LDA %1-1 détrne 
PHA ; VAR » 
LDA %1 seunane 
PHA 
.ENDX RETURN .EQU 0€ 
in Se 
RP 
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| 


RELHEMETEUREETS 


ADRLIGNE .EQU 28 - PROC EFFACE GAUCHE 
LIGNE -EQU 0€ 
COMPTEUR -EQU ÔFE -REF ADRL, ADRH 


ARELELLELELELELELLELEE) e#ccox 


se ve se 


;* EFFACEMENT RAPIDE +» VAR * 
socohnhtnhocecechhonten “on 
POP RETURN RETURN -E8U 00 
ADRLIGNE .EQU 28 
PLA : recuperation du parametre LIGNE -EQU 06 
EOR #8e COM.PTEUR *-EQU OFE 
L»Y #11. POP RETURN 
SUITE STA 400,Y ;linea © $ 16 
STA S500,Y : 2 16 18 LDA #40, ;:40 caracteres »ar liane 
STA 606,Y ; a 12 2e STA C@6MPTEUR 
STA 70680,Y ; & i4 22 ; 
STA 488, : 12:98" 17 ENC&RE2 LDX #00 :ligne senmeT 
STA 580,Y : 3 11 19 NXTEIGN L»Y #00 ;colonne de gauche 
STA 688,,Y ; Sr43 LA ABRL,X 
STA 780,Y : FRS 29 STA ADRLIGNE 
DEY LOA ADRH,.X 
BPL SUITE STA ABRLIGNE-+] 
CONT INY 
PUSH. RETURN LOA &ADRLIGNE,Y 
DEY 
RTS STA @GAPBRLIGNE, Y 
; INY 
; CPY #39. ;:derniere colonne? 
; BNE CONT 
steocssorteochontrotrenmecececen ; 
:# EFFACEMENT VERS LE BAS # : DERNIERE COLONNE # 
sttococchoctheoochhhhhoctececen ; 
: LDA #OAO 
.PR@C EFFACE BAS STA {28),Y 
INX 
«REF ADRL, ADR CPX #24. ;derniere iigne? 
; BNE NXTLIGN 
tonton A] 
: VAR * DEC COMPTEUR 
HR AOC BNE ENCORE2 
RETURN -EQU 00 PUSH RETURN 
ADRLIGNE -EOU 28 
LIGNE .EQU RTS 
COMPBTEUR .EQU OFE ; 
sennnanemnnnnnnanannnnunaunne 
POB RETURN ;:* EFFACEMENT PAR LE CENTRE » 
zstsonrosoreonenessosssessszuxe 
LOA #24. : 
STA OFE .PR@C EFFACE_CENTRE 
ENCORE LHX #23. ;dernière ligne -REF ADRL, ADRH 


LBRA ADRL,X :chargement partie basse 
STA ADRLIGNE ;on stocke dans adrligne 
LBRA ADRE,X ;chargement partie haute 


CRETE 


STA ADRLIGNE+] VAR #* 
NEXT LBA ADRLIGNE esecee 
STA LiGNE Ü 
LDA ADRLIGNE+] RETURN *EQU 00 
STA LIGNE-1 ADRLIGNE -EQOU 23 
DEX LIGNE .ÉQU 66 
LBA ADRL,X COMPTEUR -EQU OFE 
STA ADRLIGNE 
LOA ADRH,X POP RETURN 
STA ADRLIGNE+{ 
; LBV #20. ;initiail. comfteur de beucle 
LDY #33. ;on sartr de la droite STY COMPTEUR 
DEBLACE LA @ADRLIGNE.Y ;le caract. vera bas : 
STA (LIGNE),Y BOUCLE LOX #00 :initialisation iliäne 
DEY . 
BPL DEPLACE NEXTLIGN LDY #18. :initiaiisation colonne 
; LDA ADRL,X 
CPX #00 :a-t-on atteint le ba? STA ADRLIGNE 
LBA ADRH,X 
BES EFFSON STA ADRLIGNE+1 
BPL NEXT ; =  Jmp next ; 
; DEPLACB LDA GADRLIGNE,Y :recup. d’un caractere 
EFFSOM LBY #3$%. ; coin droit INY 
LA #O0AO STA @ADRLIGNE,Y ;5le deplace d’un rang 
EFFACE STA SABRLIGNE.Y DEY 
DEY BEQ GAUCH ;on sort s1 derniere col 
BPL EFFACE DEY 
; BPL DEPLACD :,.E@UJP 
DEC COMPTEUR : 
BNE ENCORE GAUCH LDA #0AO 
STA @GADRLIGNE,Y 
PUSH RETURN LBY #21. ;2:nitialisatien col 
RTS DEPG LDA @ADRLIGNE.Y:on place un caractere 
; BEY 
jthooonosotonsanenanansenossns STA GADRLIGNE, Y 
;:* EFFACEMENT VERS LA GAUCHE « INY 
junonnnnennnnnnnannennnnnnness CPY #38. :est-on a la derniere col 


B8EQ DROIT :ai oui en sort 
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DROIT 





MR ce «5 se 26 © 


eee 


VAR *# 


encsce 


RETURN 
ADRLIGNE 
LIGNE 
COMPTEUR 


BOUCLE2 
GAUCHE 


DEPBLACG 


BLANCO 


DEPLACDT 


BLANCL 


RETURN 
HCNT 
VCNT 
XL 

XR 
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INY 
BPL 


LDOA 
STA 
INX 
CPX 
BNE 


DEC 
BNE 


PUSH 


RTS 


DEPG :.E@UJMP 


#OA® 
GADRLIGNE,Y 


#24. ;derniere ligne? 


NEXTLIGN 


COMPTEUR 
BOUCLE 


RETURN 


ereceoreceeccceeessecerecreneesecccececcecees 


EFFACEMENT GAUCHE-DROITE & BROITE-GAUCHE » 


cnroorececoeseoneentsnem#emnenreeeeeneezene 


.PROC EFFACE_GD_DG 


-REF 


«EQ@U 
-EQU 
« EQU 
-EQU 
POP 


Lx 
STX 
L»X 
LDA 
STA 
LDA 
STA 
L»Y 
LDA 
DEY 
STA 
INY 
CPY 
BEQ 
INY 
BRL 


LDA 
STA 
INX 
LDA 
STA 
LDA 
STA 


BEY 
LDA 
INY 
STA 
DEY 
BEQ 
BNE 


LDA 
STA 
INX 
CPX 
BNE 
DEC 
BNE 


PUSH 


RTS 


ADRL, ADRH 


00 

28 

06 

OFE 
RETURN 


#40. 
COMPTEUR 
#00 

ADRL.X 
ADRLIGNE 
ADRH,X 
ADRLIGNE+1 
#61 
GADRLIGNE, Y 


CADRLIGNE,Y 


#39. 
BLANCD 


DEPLACG 


#OA0 
GADRLIGNE, Y 


ADRL,X 
ADRLIGNE 
ADRH, X 
ADRLIGNE+1 
SADRLIGNE, Y 
@ADRLIGNE,Y 


BLANCL 
BEPLACBT 


#06 


&ADRLIGNE, Y}; 


8 ce monent y= 


e ce moment y-8 


#24. ; termine 


GAUCHE 
COMPTEUR 
BOUCLE2 


RETURN 


EN SPIRALE 


ÉRRNRORONNENNE RER HR nn nn n 


" “*HONE* 


Rarsantasonesennnennneanauansanes 


C2 


.- PROC EFFACE_ SPIRALE 


+ DEF 


ADRL, ABRH 


39 


YT -EQU XR+1 

YB .EQU YT-1 

ADRLIGNE -EQU 28 
POP RETURN 

DEBUT LDA #24. ; pour 24 lignes 
STA VENT 

BEB1 LDA #40. : seur 40 celonnes 
STA HCNT 

DEB2 JSR ROTATION 
LDA #0A8 


STA 628+12. ; au milieu de l'ecran 


DEC HCNT 
BNE DEB2 
DEC vCNT 
BNE DEBi 


PUSH RETURN 


RTS. % €©'est fini ! 
ROTATION 
LDA #@8 
STA XL : 
STA YŸT ; semmet 
LDA #23, 
STA YB :; 
LDA #39. 
STA XR : bord droit 


bas 


J5SR BAS ; on part du cote gauche 


BEQ ROTZ 
ROTI1 JSR BAS 

DEC YE 
ROT2 JSR GAUCHEI 

INC XL 

JSR HAUT 

INC YT 

JSR DR#IT: 

DEC XR 

LDA YT 

CHE YB 

BCC ROTI 

RTS 
,.* ronshésorinonkhoreanrinatiaontes 
: «ON SE DEPLACE VERS LA GAUCHE ET» 
> VERS LE BAS * 


itaranansaosamnnneenencennennmnnrees 


BAS L»Y XL 
LBX v8 
BAS] DEX 


JSR CALCULE 

LDA @ADRLIGNE,Y 

PHA 

INX 

JSK CALCULE 

PLA 

STA GADRLIGNE,Y 

DEX 

CPX YT 

BNE BAS1 

RTS 
RE NE EN TT 
:*ON SE DEPLACE VERS LA DROITE ET 
;e VERS LE HAUT L 
seen ok name emmtonmnneesee 


HAUT EBY XR 
LDX YT 
HAUTI INX 


JSR CALCULE 

EDA GADRLIGNE, Y 
PHA 

DEX 

JSR CALCULE 

PLaA 

STA @ADRLIGNE,Y 
INX 

CPX VE 

BNE HAUTI 

RTS 


Jecoveceeeneccesceseeceseseneseeece 


:*ON SE DEPLACE VERS LE SOMMET ET» 
19 VERS LA GAUCHE . 


MTL LLLLLLLLLLLLLLLLES LEE ELELEET 


GAUCHE LDX YT 
JSR CALCULE 


berd gauche 





LDY XL 
INY 
LDA 
DEY 
STA 
INY 
CPY XR 

BNE GAUCHE2 
RTS 


GAUCHE2 
@ADRLIGNE,Y 


2ABRLIGNE,Y 


avis scies essences eee 
:+ ON SE BEPLACE VERS LE BAS ET « 
Le VERS LA BROITE . 
nee ae t enr encens an nae 
DROIT] L»X YB 

JSR CALCULE 
LOY XR 

DEY 
LDA 
INY 
STA 
DEY 
CPY XL 

BNE DR@IT2 
RTS 


BROIT2 
SADRLIGNE, Y 


SABRLIGNE.Y 


junsnnnnnnennnns 
5"  CALCUÏi DE L’ 


RÉLELELLELEILLLEZ) 


CALCULE 


: PARTiE BASSE D 


ADRi. 


-BYTE 50,0B0,50,0D00,50,0D0,50,0D0 


.BYTE 0@ 

-.BYTE 28 
;: PARTIE HAUTE D 
ABRH 


.BYTE O4 


-END 


Bugbvyter à l'essai 


Alexandre Avrane 


L'Apple ne connaît qu’un seul lan- 
gage, celui du processeur 6502, et 
pourtant peu d'utilisateurs l’exploi- 
tent; la plupart se considèrent défini- 
tivement brouillés, après la lecture 
des manuels Apple. avec la program- 
mation en assembleur. 


Bugbvter est un outil de programma- 
tion facilitée en assembleur : il assiste 
l'utilisateur dans la mise au point des 
programmes en 6502, en lui offrant 
des possibilités originales par rapport 
à ce qu'offrent le moniteur de l’Ap- 
ple ou les divers assembleurs dispo- 
nibles. 


Mettre au point un programme, c'est 
avant tout pouvoir l'exécuter instruc- 
tion par instruction (STEP/TRACE) 
pour déceler l'origine d'une erreur. Il 
est certes possible de reprendre les 
routines de STEP/TRACE disponibles 
sur le moniteur d'origine de l'Apple Il 
{avant le [1 Plus) ou avec le Moniteur 
Etendu (Pom's 8), mais les informa- 
tions affichées restent rudimentaires 
(en particulier la valeur des bits du 
registre d'état). 


Bugbuter s'est donné les movens 
d'un ”debugging” agréable ; en effet 
l'écran affiche simultanément : 


e la douzaine d'instructions précé- 
dant et suivant la position actuelle; 

e les valeurs en hexadécimal ou en 
binaire des registres (4/X/Y/P/S) 
du 6502 et leur évolution; 

e la position courante du compteur 
de programme (PC); 

e la situation actuelle de la pile du 
6502, ainsi que le pointeur de 
pile; 

e le nombre de cycles-machine exé- 
cutés; 





e les valeurs d'une demi-douzaine 
d'adresses stratégiques que l'utli- 
sateur aura précisées: 

e la situation des points d'’arrêts, 
également spécifiés par l'utilisa- 
teur. et le nombre de fois qu'ils 
ont été atteints. 


Ï est également possible d'observer 
l'évolution des zones d'écran texte 
ou haute résolution, page 1 ou 2. et 
de faire varier la vitesse d'exécution, 
éventuellement à l’aide d’un paddle. 


Bugbyter fonctionne comme un in- 
terpréteur des instructions du 6502, 
ce qui ralentit évidemment le dérou- 
lement du programme: il est néan- 
moins possible de préciser une zone 
mémoire qui devra être exécutée à 
pleine vitesse, par exemple la routine 
RWTS du DOS. Entièrement relo- 
geable, Bugbyter peut également être 
implanté sur une carte langage. 


Les problèmes de contention (colii- 
sion) sont réduits au minimum et 
Bugbyter ne réserve en fait qu’une 
trentaine d'octets sur ia pile du 6502; 
toutes les adresses en page zéro sont 
sauvegardées et restaurées, l'affi- 
chage vidéo peut être supprimé, il est 
également possible de spécifier que 
tous les caractères du clavier sauf un 
seront reçus par le programme exé- 


cutant, le dernier servant à arrêter le 
TRACE. 


Si les caractéristiques de Bugbvyter 

s'arrêtaient là, ce serait déjà un ex- 

cellent produit. Mais il offre en 

prime : 

e un mini-assembleur résident, plus 
pratique que celui d'Apple; 

e un traducteur décimal/hexadéci- 
mal; 


.BYTE 64,04,05,05,06,86,07,07 
-BYTE 04,04,05,05.06.06,07.07 


ABRESSE + 


LIA ADRH,X 
STA ADRLIGNE+1 
LBA ABRÈ,X 
STA ADRLIGHE 
RTS 


ES ADRESSES PAGE TEXT * 


.80.00,#8.080,808,08,80 :lignes 0-7 
,:0A8,28,0A8.28,0A8,28,0A8 :lignes 8-15 
:lignee 16-23 


ES ABRÉSSES PAGE TEXT « 


:lignes O-7 
:lignes 8-15 


-:04,05,05,066,06,07,07 :lignes 16-23 


e la possibilité de visualiser la mé- 
moire par dump hexadécimal et 
ASCIE, 

e la modification facile des quatre 
fenêtres d'affichage à l'écran: 

e l'installation de points d'arrêts 
(breakpoints) virtuels (un BRK 
n'est pas inséré}: 

e l'exécution sur Apple Il. 11+, //e, et 
/// en mode émulation: 

e non protection et fonctionnement 
sous DOS 32 ou 3.3, ce qui per- 
met de l'utiliser conjointement 
avec un assembleur, Big Mac par 
exemple, sans devoir recharger 
l'un des deux programmes. Un 
seul regret : il est impossible d'ob- 
tenir une sortie sur imprimante des 
informations produites, 


En rapport performance/prix, un seul 
concurrent sérieux: le Moniteur 
Etendu du Pom's 8 qui offre de 
nombreuses possibilités semblables, 
ainsi que certaines facilités en plus ou 
en moins par rapport à Bugbyter. Le 
prix du numéro et de la disquette: 
95°F> 


En guise de conclusion, Bugbyter est, 
à un coût raisonable (environ 450 
FF, mais difficile à trouver}, une né- 
cessité à la fois pour le novice qui 
veut apprendre l'assembleur sans 
douleur, et pour l'utilisateur plus ex- 
périmenté qui gagnera un temps pré- 
cieux de mise au point et osera abor- 
der certains programmes très com- 
plexes. La programmation en assem- 
bleur n'est plus un art avec ses mo- 
ments d'intuitionn et de désespoir, 
mais devient une technique. Est-ce 
dommage ? 
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Un jeu d’adresse en Pascal : 
ORDRALPHABETIX 


Dominique Bernardi 


J'ai voulu voir s'il était vraiment pos- 
sible d'utiliser l'assembleur UCSD. 
En fait, ça l'est et on découvre même 
à l'usage que le passage de paramè- 
tres entre le Pascal et son assembleur 
est nettement plus simple qu’en 
Basic (pour la mise au point, c’est 
autre chose !}. En particulier, on peut 
dans le programme Pascal redéfinir 
les touches de direction utilisées par 
la routine assembleur, grâce à la ci- 
rective .PUBLIC qui montre toutes 
les qualités de l’assembleur (ou plu- 
tôt de l'éditeur de liens UCSD). 


Toutes les explications nécessarres 
sont données par le programme Pas- 











AA“ ORDRA ABE k 
“ ECx17 BAR DONINIVUE B£PNARI., K UNE 

ÎDEZ DE JEAN-LOUIS AUISY ET HELGNE rAISHAM + 
SES TURTLECRAPHICS, APPLESTUFF: 






=RECO6RC Y.x::NTSGER EN; 
ADECA:SET OF CHAR: 


VAR TABLE:ARKAV(IO..26) CF POINT: 

PT, BEPART:POINT: 

LETTRES, VITESSE, SCORENAX,BUT.Cna5n, 
DELTAX,DELTAY. FEMBORISATION: 1NTEGER : 
HAUT, BAS ,GAUCHE,BR@17E,a:CHAR: 





PROCEDURE COURS: EXTERNAL: 


FENCTION PCAR(S:CHBIXDECA? : CHAR: 
VAR A:CHAR: 
BEGIN 
REPEAT REAOD(AI UNTIL À IN S: 
PCAR: = 4 
ENS; 


FUNCTION OUI:BO8LEAN: 
BECIN 
OU1:=PCAR(E’"O’."N'}) =°0° 
END: 


FUNCTIGN ENTiER:INTEGER: 
VAR A:CUAR: 
I:INTECER: 
BEGIN 
A:=PCAR(('0",,/8"3): 
I:28RBCAI-ORD(’0°): 
A:sPCARCL 07-2955" T0 
IF A<>' ? THEN 1:=1091-+GRD4{A)-GRB<"@" 2: 
ENTIER:=1 
END: 





PROCEBURE PARANETRES: 
VAR 1,3:1NTECER: 
BEGIN 
REPEAT 
PAGE(@UTPUT) ; 
YRITELNC* PARAMETRES : : 
WRITELN: WRITELN: 


WRITELN(* ACTUELLEMENT: ’ ,LETTRES." LETTRES. VITESSE °.VITESSE?): 


WRITELN: WRITELN: 
VURITEC"LETTRES (1..26) -->°3: 
REPEAT Il:=ENTIER UNTIL I IN (1..26); 
WRITELN ; 
URITEU(' VITESSE (1..28) -->°}: 
REPEAT J:#ENTIER UNTIL J IN €1..2@); 
WRITELN: WRITELN: 
WRITELNCI,’ LETTRES, VITESSE ‘.9): 
URITELN : 
WRITE(OK ? ’) 

UXTIL OUI: 

LETTRES:=1; VITESSE:=3 

END: 


PROCEBURE TOUCHES: 


VAR 41,42,A3,A4:CHAR: 
BEGIN 
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sait Galilée, ça tourne 


REPEAT 
PAGE(OUTPUT) : 
VRITELN(”? TOUCHES DIRECTI@NNELLES"?: 
WRITELN: WRITELN; 
WRITE'HAUT --> “x: RÉAD(A1): 


WRITELN; 

YRITE('BAS --> *); READ<A2): 
RITELN: 

WRITEU'GAUCHE --»> 73: READ(A3): 
WRITECN: 


WRITE('DROITE --> "): READ(AG): 

WRITELN; WRITELN: 

WRITEU'OK ? ‘) 

UNTIL OUI: 

HAUT:=41]: BAS:-=a2: GAUCHE:rA3: DROITE: -ñ4 
END: 


PROCEDURE CHOISIT: 
VAR PT:POINT: 
I::iNTEGER: 
PROCEDURE HASARB: 
BEGIN 
#114 PT DO BEGIN 
X:=4+€RANDOM MOOD 267}: 
Y:=10"(RANDOH M8B 178) 
END 
EXD; 
FUNCTION POSSIBLE:BOOLEAN: 
VAR J:IATEGER: 
BEGIN 
J:si: 
WAILE J<] B@ BEGIN 
IF (ABS(TABLELJ).X-PT.X)65.5 
AND (ABS(TABLE(JI.Y-PT.VI<6.5) 
uen BECIN P@SSIBLE:2FALSE: EXIT(P@SSIBLE) 
J: ‘1 
END; 
POSSIBLE : : TRUE 
EXD: 
BEGIN (eCHOISIT.) 
T@R l::1 TO LETTRES D0 
BEGIN 
REPEAT HASARD UNTIL POSSIBLE: 
TABLEUI):=PT 


END; 

REPEAT HASARD UNTIL POSSIBLE; 
DEPART: 2PT 
ENR:; 


PROCEDURE TRACE: 
BEGIN 
MOVETO(TABLEII].X.1936-TABLEII). #5: 
WCHARÇCHR(EH- LD): 
ENKB: 





PROCEDURE OESSINE; 

VAR 3:1NTEGER: 

BEGIx 
1 TURTLE: 
VisdPORfl.4,27S,5, 187): 
FILLSCR&EER (WHITE): 
VIEWPORT(0,279,@8,i191): 
FILESCREEN(REVERSE) : 
FOR 1:21 T0 LETTRES DO TRACE(L): 
END; 





BURN TG ATSAGENRE 
#4 «eHFÈAÉ 


cal. Par contre. je nai pas eu le 
temps (ou le courage) de documen- 
ter la procédure externe. De toute 
façon, il serait sans doute plus astu- 
cieux de faire appel aux routines de 
Turtlegraphics (si on savait où elles 
se trouvent) ou d'écrire sa propre 
routine de HPLOT, plutôt que de 
faire appel à la ROM Applesoft 
comme je le fais. Enfin, comme le di- 


ORDI1 est le programme Pascal 
d'ORDRALPHABETIX et ORD2 le 
programme assembleur. 


ENR; 


frets: 


4444 


bits 44 + 














ORNE RIRES 





PROCELURE JEU: 

VAR SCORE:INTESER 
FIN: :B@@8LEAN: 
A: CHAR: 

BEGIN 
LESSINE: 
SC6RE “ 
BUT : 
CRASH: 
LELTAX 
DELTAY & 

PT:2BEPART: 
TENP@RISATION:2241-:2-VITESSE: 
REPEAT 
COURS: 
IF CRASH = @ 
THEN BEGIN 
WRITE(CCHR(C7)): 
SCORE: =SCORE-+VITESSE: 













TRACE(BUT) ; 
BUT:=BUT-+1: 
FINI:=8UT>LETTRES 

END 

ELSÉ BEGIKX 

NOTE(4,16@): 
FINI:=TRUE: 

END 


UNTIL FEN]; 
IF SCORE>SCORE#AX THEN SCOREXAX::SCORE: 








PROCESURE INSTAUCTI@NS: 
VAR &4:CHAR: 


BEGIN 
PAGE(@QUTPUT) ; 
WRITELN(* NSTRUCTIONS" ) : 
WRITELN:; WRITELN; 
ANT TA Gr SI OUSS DEVEZ RASE RUOAMS REC ARNES, REDASTE 


WRITELNC'LETTRES DE L’ ALPHABET, EN DIRIGEANT LE’:: 
WRITELN('TRAIT GRACE AUX T@UCHES DE DIRECTI®@YX QU‘): 
WRITELNÇ'SONT, PAR DEFAUT, <1> <J> <K> ET «<m>.°): 
VRITELN:;YRITELN: 

URITELN(ATTENTI@N, UME FOIS QU’ IL ñ DEXARRE, LE‘): 
WRITELNC TRAIT NE S’'ARRETE QU''A LA VICTOIRE‘): 
WRITÉLN{"FINALE QU à LA COLLISION AVEC LE BeRG BU‘): 
WRITELNC'LE RECTANGLE &X7 CONTENANT UNE LETTRE"): 
URITELN('ERRONEE.'); 


WRITEILN:; 
WRITELX: REAB(A) 
END: 
PR@CEBURE MENU: 
BEGIN 
PAGE(OUTPUT); 
WRITELN(’ OURCGRALPAABETIX" ): 
WRITELN: WRITELN: 


WRITEiN(‘ 1) NSTRUCTIONS" }: 
WRITELN(’T)OUCHES DE DIRECTION':: 
VRITELX{’P)ARAMETRES DU JEU‘): 
WRITELN(D)1SPOSITI@N BES LETTRES‘): 








READ (A) : WRITELN ("JD EU’? : 
PAGEC QUTPUT) : WRITELNC-FDIN’): 
TEXTHOBE; URITELN: URITELK:; 
URITELNC: VOTRE SC@RE EST 8€ ‘SCORE,’ POINTS':: WRITEC-VOTRE CHOIX --> ‘) 
URITELX (LE SC@RE MAXIMUM ATTEINT AUJOURB' "HUI'): ENG: 
WRITELNC-EST BE ‘, SCOREMAX.‘ POINTS’): 
WRITELX: BEGIN (« ORBRALPHASETIX -} 
REABEA) INIT; 
END: REPEAT 
MENU: 
PROCEDURE INIT: :=BC! F'i): 
BEGIN 
RANDOHIZE: 
LETTRES:<26: 
VITESSE: 
SCOREMA 
CHOISIT: 
='L': 
UKTIL à=°F" 
J': PAGE (OUTPUT) : 
; K': SOTOXYi:4,12): 
CHARTYPE(E WRITELN(TAU REVOIR) 
ENS; END. 
P ORD2 DESCENR STX DELTAX ERA 
rogramme CMP LETTRES 
STX BELTAX+I es 
«PROG COURS PDA Û BCC 50 
PUBLIC TABLE,LETTRES.BUT ia AE JP ALLUME 
PUBLIC TEMPORISATI@N, CRASH s0 JSR CARRE 
PUBLIC BELTAX,DELTAY,PT BEQ PEROU 
.BUBLIC HAUT,BAS,GAUCHE,DROÏTE REAUCHE:S SSTXABELTAY JH® DEPILE 
LDA #@FF 
STOCK Eau € _. DELTAX CORRECT  LDAa #e 
KIRES EAU @Ee A DELTAX+1 STA CRASH 
COLeR .EQU 6E4 JHPSAYANCE JHP EXIT 
PAGE .EQU OE6 
LÉ TRS RE COUT OC 0e ADROITE STX DELTAY HeRDT DAS 
KEYSTROB .EAU @Ce10 STX DELTAX+1 STA CRASH 
PLOT -EQu 0F457 LDA #1 JKP EXIT 
RAM .E@U OCe8a STOADELTANX 
& 
RO EAU OCO84 URNCE Pre CARRE SEC 
LUA PT LL 
INTR® LDY WOF SC TABLE.X 
se LDA HIRES,Y ADC BELTAX STA STOCK 
STA BLOC, Y STA PT LDA PT:1 
DEY LORS SBC TABLE-1,X 
7 : 
ADC DELTAX+1 
BPL se A BNE NON 
LDA #7F Le LDA ST@CK 
STA COLOR FN DEN CMP #6 
LDA #29 Rene BCS NON 
STA PAGE SRE SEC 
STA ROX STATE LDA TABLE-2.Y 
CHECKX LDA PT-1 SBC PT4+2 
ALLUXHE LBY PT+1 BEQ CHECKG CH? #7 
LDX PT LDA PT BCS NOR 
LDA PT-2 CHEB #20. OUT LDA #6 
JSR PLOT BCS PERDU RTS 
JSR DELAI JHP CHECXY NON LDA #1 
CHECKG LOA PT RTS 
LDA KEYBOARD CHP #4 
GPL AVANCE ACC PERDU DELAI LDY TEMPORISATION 
STA KEYSTROB s1 DEY 
LOX #e CHECKY LUA PT:2 BEQ FIN 
AND #7F CXP #188 LOX #10. 
CMP HAUT BCS PERBU 52 DEX 
REO HONTE CNP #4 BNE 52 
CMP BAS BCC PEROU JuP si 
BEO BESCEND FIN RTS 
CXP GAUCHE PILE LOà BUT 
BEQ AGAUCHE ASL À EXIT STA Ram 
CXP DROÎTE ASL A LBY #0F 
BEQ ADROITE TAM 53 LBA BLOC. Y 
JKP AVANCE JSR CARRE STA HIRES.Y 
BEQ C@RRECT DEY 
MONTE STX DELTAX DEPILE LC BPL 53 
STX BELTAX+I TXA RTS 
LDA #@FF ADC #4 BLOC .BLOCK 19 
STA DELTAY TAX 
JP AVANCE LSR A END 
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Avec l’arrivée du Macintosh, Apple a 
annoncé la création de la famille 
“Apple 32”, regroupant les matériels 
tournant sur processeur 32 bits. 
Etrangement, peu de mots sur la 
gamme “Apple 8” ont été pronon- 
cés, comme si les Apple Il (Plus, //e 
et //c) et /// devaient éternellement 
continuer à s'ignorer et rester quasi- 
ment incompatibles l’un avec l'autre. 
Heureusement, voici ProDOS. 


Rendu possible par l'abaissement du 
coût de la mémoire, ProDOS est le 
nouveau système d'exploitation des- 
té à remplacer, à terne, le DOS 
3.3 et éventuellement le S.O.S. et 
donc à offrir enfin une certaine 
compatibilité entre la famille Apple Il 
et l'Apple ///. 


L'évaluation qui va suivre est divisée 
en trois grandes parties volontaire- 
ment succintes : 


e une description générale des ca- 
ractéristiques du ProDOS; 

e l'étude de ses commandes et la 
comparaison à celles du DOS 3.3: 

e un premier regard sur son fonc- 
tionnement interne. 


Caractéristiques 
du ProDOS 


ProDOS a un double objectif: ren- 
dre possible l'utilisation d'un disque 
dur sur Apple Il de manière aussi 
simple que celle d'une disquette, et 
permettre à l'Apple /// d'utiliser les 
logiciels de l'Apple sans devoir pas- 
ser en mode émulation. En bref, les 
fichiers de l’un peuvent être lus par 
l'autre. 


ProDOS ne nécessite aucune modifi- 
cation hardware (pas d'ajout de 
PROM comme lors du passage DOS 
3.2 vers DOS 3.3), mais requiert un 
minimum de 64K de RAM (le DOS 
3.3 tient en 16K). La quasi-totalité 
de la carte langage lui est réservée: 
nous avons par conséquent la dou- 
leur de vous faire part du décès, à 
l'âge de 8 ans, du Basic Integer qui 
n'est pas supporté par ProDOS.. 


Des disques durs d’une capacité 
maximum de 32 mega-octets (Mo) 
peuvent être utilisés (le ProFile offre 
5 Mo un fichier individuel peut 
enfin avoir une taille de 16 Mo, soit 
l'équivalent de 114 disquettes ! 


C'est énorme ! Pour pouvoir s’y re- 
trouver rapidement, ProDOS utilise 
le principe des catalogues hiérarchi- 
sés : un catalogue général fournit une 
liste de sous-catalogues qui, eux- 
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ProDOS à l’essai 


mêmes, peuvent contenir des sous- 
sous-catalogues, et ainsi de suite. Re- 
lätivement simple à utiliser, cette mé- 
thode permet de structurer le 
contenu d'un disque, mais pourra 
dérouter l'utilisateur habitué à des 
structures plus simples. Sans cette 
structure hiérarchique, il faudrait, si 
chaque fichier avait une taille de 10 
K, 21 pages d'écran pour lire le cata- 
logue d'un ProFile | 


ProDOS gère automatiquement tous 
les sous-catalogues et, en particulier, 
les dates de création et de dernière 
modification d’un fichier, sa longueur 
en octets et son adresse de charge- 
ment. Pour l'instant, il reconnaît seu- 
lement là carte d'horloge Thunder- 
clock, mais les autres fabricants vont 
certainement proposer dans peu de 
GDS des patches pour leurs maté- 
riels. 


Un des principaux points forts de 
ProDOS réside dans sa gestion beau- 
coup plus rapide des fichiers, par 
rapport non seulement à celle du 
DOS 3.3, mais également à l’égard 
des versions “dopées” telles que 
ZDOS, ProntoDOS, Diversi-DOS, 
etc. J'ai obtenu les temps suivants 
(en secondes) avec un fichier binaire 
de 32 K: 


DOS 3.3 ZDOS 2.0 ProDOS 1.0 


BSAVE a 39 18 
BLOAD 83 8 5 


Enfin, ProDOS est livré avec plu- 
sieurs utilitaires équivalent à FID et 
COPYA, ainsi qu'avec un pro- 
gramme de conversion des fichiers 
séquentiels DOS 3.3: les fichiers à 
accès direct doivent d'abord être 
transposés en fichiers séquentiels, 
convertis en ProDOS, puis retranspo- 
sés en fichiers à accès direct . Call 
Apple a publié en avril 1984 un pro- 
gramme effectuant cette double 
transposition. 


En conclusion partielle, ProDOS est 
le quatrième grand système d’exploi- 
tation pour Apple Il disponible en 
France. Hormis le DOS 33, il va de- 
voir compter avec le Pascal, le CP/M, 
et le MEM/DOS à qui il pourrait faire 
du tort. 


Les commandes 
du ProDOS 


Pour des raisons de place, cette 
étude se borne à indiquer les diffé- 
rences entre les commandes du 
ProDOS et celles du DOS 3,3, et né- 
cessite donc une connaissance prati- 
que de ce dernier. Les commandes 
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du ProDOS sont, en effet, volontaire- 
ment similaires à celles du DOS 3.3: 
il n'y a donc pas nécessité d'appren- 
dre une nouvellk gamme de 
commandes, et l'utilisateur rêdé au 
DOS 33 s’accoutumera très rapide- 
ment à ce nouveau système d'exploi- 
tation. 


Sept types de fichiers existent sous 
ProDOS : les fichiers de programmes 
Basic, textes, et binaires nous sont 
déjà familiers. S'y ajoutent les fichiers 
systèmes (ProDOS lui-même consti- 
tue un fichier, contrairement au DOS 
3.3 qui se trouve toujours sur les 3 
premières pistes d’une disquette), les 
fichiers binaires relogeables (l'équiva- 
lent des fichiers R du DOS ToolKit), 
les fichiers de variables (qui conten- 
nent les variables d'un programme 
Applesoft), et enfin les sous-catalo- 
gues (considérés comme des fichiers 
à part entière et pouvant donc être 
lus ou écrits). En outre, l'utilisateur a 
la possibilité de définir 8 types sup- 
plémentaires de fichiers. 


Hiérarchie des catalogues 


La hiérarchisation des catalogues est 
facilitée par le PREFIX : supposons 
que sur un disque, baptisé DISQUE1I 
lors de son initialisation, existent des 
fichiers de gestion, de jeux, des utili- 
taires, etc. On peut créer un sous-ca- 
talogue nommé GESTION contenant 
tous les fichiers de gestion, puis un 
sous-sous-catalogue baptisé IMPOT 
qui contient plusleurs fichiers, met- 
tons un par année. Pour appeler un 
de ces fichiers, il faut une commande 
telle que, par exemple : 


OPEN DISQUE 1'GESTION/IMPOT/ANNEEÏ 


Remarquez que l'on ne précise ni le 
slot ni le drive, ProDOS identifiant 
(comme Pascal) le nom logique du 
volume (DISQUE) avec son adresse 
physique (slot, drive). Les ”/” (pro- 
noncez slash) servent de délimiteurs 
entre les identifiants qui doivent 
comporter au plus 15 caractères 
(moins que sur DOS 3.3, mais plus 
que sur Pascal ou CP/M, et franche- 
ment mieux que les 8 caractères re- 
connus par lIBM PC ..) pris parmi 
les lettres, les chiffres ou le point. La 
longueur totale de la commande, 


hors l'instruction OPEN, ne peut ex- 


céder 64 caractères. Pour alléger la 
syntaxe, il est possible de préciser un 
préfixe par défaut avec l'instruction : 
PREFIX /DISQUE1/GESTION/AMPOT/ 

et la commande ci-dessus devient 
plus simplement : 

OPEN ANNEE1 
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Les commandes disparues 


Six commandes du DOS 33 ont dis- 
paru : INIT (il faudra charger et exé- 
cuter un programme de formatage), 
INT et FP (le Basic Integer n’est pas 
supporté). De plus, MAXFILES 
(ProDOS gère directement les alloca- 
tions mémoire et tolère 8 fichiers ou- 
verts simultanément), MON et 
NOMON (en contrepartie, la com- 
mande TRACE de l'Applesoft fonc- 
tionne correctement) sont purement 
et simplement ignorés par ProDOS,. 


Les commandes nouvelles ou 
modifiées 


Plusieurs instructions concerment la 
manipulation des catalogues : 


CATALOG garde son sens habituel 
et affiche les fichiers dépendant du 
préfixe donné, avec indication de la 
date de dernière modification et des 
capacités libre et occupée du vo- 
lume: les tailles sont exprimées en 
blocs correspondant à 2 secteurs, soit 
512 octets. En effet, ProDOS est 
{comme le SOS) de filiation Pascal, 
ce qui explique la coïncidence de la 
taille de bloc. 

CAT fournit une version plus 
complète du catalogue, sur 80 colon- 
nes. 

PREFIX, déjà mentionné, permet de 
modifier le prélixe. 

CREATE perrnet de créer un fchier 


catalogue. 
—: cette nouvelle commande très 
pratique (prononcez ‘”dash”) peut 


être utilisée à la place de RUN, 
BRUN ou EXEC. 

FLUSH équivaut à un CLOSE, mais 
laisse le fichier ouvert. 

FRE est une commande de net- 
toyage mémoire beaucoup plus ra- 
pide que celle de l’'Applesoft. 
STORE et RESTORE permettent res- 
pectivement de stocker sur disque et 
de rappeler les variables d’un pro- 
gramme Applesoft. 


Enfin, ProDOS autorise l'adjonction 
de nouvelles commandes à son vo- 
cabulaire, à la différence du DOS 3,3 
où il fallait pour cela savoir jongler 
en assembleur. 


Les commandes améliorées 


Les autres instructions de ProDOS 
sont semblables à celles du DOS 3.3, 
maïs comportent de très nombreuses 
améliorations qu'il serait trop long de 
détailler ici, ainsi, il devient possible 
de préciser l'adresse de fin d’un pro- 

gramme binaire (BSAVE ECRAN, 
À$2000 ,E$3FFF), ou de charger un 
programme Applesoft puis de l'exé- 
cuter à partir d'une ligne précise 
(RUN PROGRAMME, @200). 


Les instructions APPEND et CHAIN 
fonctionnent correctement sous 
ProDOS. Enfin, les commandes IN# 
et PR# peuvent préciser directement 
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l'adresse d’une routine d'entrée ou 
de sortie, 


Conversion des programmes 
Applesoft 


La programmation sous ProDOS est 
donc sensiblement la même que sous 
DOS 33 et la conversion de pro- 
grammes en Applesoft ne devrait pas 
poser de problèmes majeurs. 


Il existe néanmoins une différence 
fondamentale dans l’interception des 
commandes entre le DOS 3,3 et 
ProDOS. Le DOS 3.3 contrôle si, au 
début d’une ligne, on veut imprimer 
le caractère Ctrl-D. ProDOS, pour sa 
part, contrôle chaque instruction à 
travers la routine TRACE: lorsqu'il 
rencontre une instruction PRINT, il 
vérifie si le premier caractère est un 
Ctrl-D. Conclusion: l'habitude de 
certains (bons) programmeurs de 
faire précéder un Ctrl-D par un re- 
tour chariot, en définissant D$ — 
CHR$(13) + CHR$(d), est mainte- 
nant à bannir. Deuxième implica- 
tion: cette méthode d'interception 
ralentit quelque peu l'exécution d’un 
programme (environ 5 à 8%) mais, 
en contrepartie, le nettoyage de la 
mémoire et la gestion des fichiers 
sont beaucoup plus rapides avec 
ProDOS. 


Fonctionnement interne 


Cette dernière partie s'adresse aux 
habitués de l'assembleur; il n’est pas 
question d'indiquer dans cette pre- 
mière présentation l’organisation dé- 
taillée des routines en mémoire ou 
des pointeurs physiques sur disque 
de ProDOS, mais plutôt de fournir 
un aperçu de son fonctionnement. 


Historiquement, on divise le DOS 
33 en trois modules distincts: le 
Captain” interprète les commandes, 
le ‘File Manager” gère l'allocation 
des fichiers sur une disquette, et 
"’RWTS”, enfin, assure la lecture, 
l'écriture ou le formatage d'un sec- 
teur. 


RWTS est sensiblement identique 
sous ProDOS, sauf qu’il est incapa- 
ble de formater un disque et a été 
rebaptisé Disk Driver”. C'est d’ail- 
leurs la même routine qui est utilisée 
sous Pascal et CP/M,; seul son équi- 
valent sous DOS 3.2, avec ses pistes 
de 13 secteurs, diffère. Bien évidem- 
ment, le Disk Driver est un module 
su lors de l'emploi d'un disque 
ur. 


ProDOS raisonne en blocs, chaque 
bloc étant une unité logique de 2 
secteurs physiques. Il y a donc 35 * 
16 / 2 = 280 blocs sur une disquette 
normale. 


A l'inverse du DOS 33 qui réside in- 
tégralement en mémoire, ProDOS se 
compose de deux parties distinctes, 


la deuxième étant chargée en fonc- 
tion des besoins 


Noyau de ProDOS : 


Le ProDOS Kernel contient l'équiva- 
lent du ile Manager et de RWTS il 
occupe l'ensemble de la carte lan- 
(à l'exception de la zone 
$D000. $DOFF de la Bank 2), ainsi 
qu'une petite zone ($BFOO-$BFFF) 
destinée à ”’switcher” entre les diffé- 
rentes parties hautes de la mémoire 
et à recevoir des appels de program- 
mes externes. 
Cet ensemble est également appelé 
M.LI. (pour Machine Language In- 
terface). 


le Kernel 


Ï peut être appelé directement par 
un programme en assembleur. Son 
équivalent sous DOS 3.3 serait un 
point d’entrée unique pour l'appel de 
RWTS et du File Manager, avec une 
table des paramètres également uni- 
que. La syntaxe d'appel est : 


JSR MLI ;:MLI=$BFO0 

DFB CMDNUM :tupe de commande 
de fichiers (sauf Basic) 

DA PARAM adresse de la table des 
paramètres 

BNE ERREUR :en retour, accumula- 
teur=type d'erreur 


Les commandes disponibles concer- 
nent la lecture ou l'écriture d’un bloc 
ou d’un fichier texte, le préfixe, etc. 
Deux utilitaires livrés avec ProDOS 
facilitent l'apprentissage : l'EXERCI- 
SER permet d'étudier l'exécution des 
appels et BUGBYTER (voir l'analyse 
dans ce numéro) permet de ’’debug- 
ger”’ un programme assembleur. 


Interface avec l’Applesoft : 
BASIC.SYSTEM 


Le noyau de ProDOS permet de 
gérer tous les fichiers qui ne sont pas 
des programmes Applesoft. En effet, 
pour utiliser ces derniers, ainsi que 
l'interpréteur de commandes, il est 
nécessaire de charger une deuxième 
partie de ProDOS, qui porte le nom 
BASICSYSTEM et occupe les adres- 
ses $9600-$BEFF. 


Notons que HIMEM se trouve alors à 
la même position qu'avec le DOS 
3.3, de toute façon, il est préférable 
avec ProDOS de ne pas mettre d’ins- 
truction HIMEM dans un programme 
Applesoft (et surtout pas un HIMEM 
qui ne correspondrait pas à une li- 
mite de page mémoire), ProDOS gé- 
rant lui-même l'allocation de la RAM 
par sections de 256 octets. 


Oubliez HELLO, apprenez START- 
UP. Lors du boot d’une disquette, 
ProDOS n'exécute pas automatique- 
ment un programme Applesoft pré- 
cisé lors de son initialisation, mais re- 
cherche dans le catalogue principal 
un fichier nommé STARTUP, S'il le 
trouve, celui-ci est exécuté quelque 
soit son type (Applesoft, assembleur, 
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fichier Exec), il est de la responsabi- 
lité de ce programme de charger ou 
non lie BASIC SYSTEM. 


Certaines adresses de page zéro sont 
utilisées par ProDOS : $3A-$3F par 
RWTS; $40-$4E par d'autres routi- 
nes qui les rétablissent avant de ren- 
dre la main. Les vecteurs de la page 
3 sont également présents sous 
ProDOS. 


Format d’une disquette 


Rappelez-vous que, sous ProDOS. il 
faut penser en blocs de 512 octets, 
et non plus en secteurs de 256 
octets. Les 280 blocs d’une disquette 
sont numérotés dans l'ordre croissant 
des pistes : O à 7 sur la piste O, 8 à 
15 sur la piste 1, etc. 


Les deux premiers blocs contiennent 
le “’Loader”, c'est-à-dire le pro- 
gramme, chargé et exécuté par la 
routine du contrôleur de la disquette, 
a lui-même charge le ProDOS Ker- 
nel. 


Les blocs 2 à 5 contiennent le catalo- 
gue principal de la disquette (on dit 
aussi table des matières), à raison de 
13 fichiers par bloc (d’où une limite 
de 52 fichiers dans le catalogue prin- 
cipal, étant entendu que certains des 
fichiers peuvent être des sous-catalo- 
gues). 


La 


Des bancs d’essai de l'Apple //c figu- 
rent dans toutes les revues (Pom's a 
publié 2 points de vue” dans son 
précédent numéro). Des démonstra- 
tions sont faites dans toutes les bouti- 
ques. Le constructeur propose une 
documentation bien fournie. Aussi 
avons-nous choisi d'aborder ici l'Ap- 
pé lc sous un angle un peu particu- 
ier. 


Vous êtes un familier de l'Apple //e. 
Vous possédez de nombreux logiciels 
du commerce (et d'autres que vous 
avez écrits). 

Vous disposez de périphériques clas- 
siques : lecteurs de disque, moniteur, 
imprimante (par exemple la Dot Ma- 
hix Printer d'Apple). 

Vous êtes également accoutumé à 
utiliser des périphériques moins clas- 
siques : téléviseur couleur relié à une 
carte RGB, poignées de jeu. 

Vous travaillez couramment sur écran 
80 colonnes. 

Vous avez également une carte avec 
modem intégré, qui vous simplifie 
bien la vie. 
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Le bloc 6 correspond à la carte du 
volume (“Volume Bit Map”) qui 
fonctionne comme la VTOC du DOS 
3.3; chaque bit du bloc indique si 
l'un des blocs du volume est libre ou 
occupé. Sur disque dur, il peut exfs- 
ter jusqu’à 16 blocs formant la carte 
du volume et représentant 16 x 512 
* 8 =65536 blocs donc 33.554.432 
octets ! Sur une disquette, seuls les 
35 premiers octets, représentant les 
280 blocs, sont utilisés. 


Sous DOS 3.3, un fichier utilisait sys- 

tématiquement au moins un secteur, 

appelé TSL {Track Sector List”), 
qui donnait les adresses des secteurs 
de données de ce fichier. Une philo- 

sophie moins gourmande en place a 

. adoptée avec ProDOS : 
un fichier de moins de 512 octets 
(1 bloc) est directement accessible: 

e un fichier d’une taille comprise 
entre 2 et 256 blocs nécessite un 
bloc d’index: 

e un fichier d’une taille supérieure 
utilise un bloc d'index principal 
qui pointe vers au plus 128 blocs 
d'index secondaires, eux-rr.êmes 
pointant vers les blocs de données 
{ouf!). 


Il n’est pas question ici d'examiner 
individuellement la valeur des comp- 
teurs et pointeurs de ces blocs systè- 
mes (il faudrait y consacrer un article 


compatibilité 


À quoi pouvez-vous vous attendre si 
vous décidez de ‘passer à l'Apple 
lc” ? C'est à cette question, à notre 
sens fondamentale, que nous allons 
essayer de répondre. 


Le premier contact 


La surprise du poids et de la taille. 
Vous vous y attendiez bien sûr, mais 
cette petite boîte au design agréable 
suiprend toujours. Autre surprise, 
moins agréable celle-là : l'atimenta- 
tion, séparée, relativement lourde 
(1,4 kg environ), qui ne tient pas 
dans la sacoche. C'est déjà moins 
portable. 


Il y à aussi le problème de l'écran. 
Faisons confiance à Apple, qui an- 
nonce pour la fin de l’année un 
écran plat rabattable de 24 iignes par 
80 colonnes. 


Soulevons le couvercle... Non mau- 
vaise habitude ! On n'ouvre pas l’Ap- 
ple //c. C'est un système de type 
fermé, et, en principe, vous pouvez 
tout faire sans l'aide des fameux 


entier). Néanmoins ceux-ci devront 
être étudiés plus attentivement par 
ceux qui souhaitent développer des 
utilitaires : il faudra en particulier 
analyser les commandes UNDELETE 
(’restoration” d'un fichier DELETÉé) 
et VERIFY (similaire à celle du DOS 
3.3; ProDOS ne vérifie pas l'intégrité 
physique d'un fichier, mais unique- 
ment son existence). 


Conclusion 


ProDOS offre incontestablement des 
améliorations considérables par rap- 
port au DOS 3.3. même si on reste 
un peu sur sa faim (pas de gestion 
automatique des fichiers séquentiels 
indexés, que l’on était pourtant en 
droit d'attendre). Apple livre mainte- 
nant les //e et //c uniquement avec 
ProDOS, et souhaite en faire le nou- 
veau standard. Il ne faut cependant 
pas espérer (craindre ?} la disparition 
prochaine du DOS 3.3, d'une part 
car ProDOS est très gourmand en 
mémoire (il occupe trois fois plus de 
place). d'autre part car plus de 
10.000 logiciels pour Apple tournent 
sur DOS 3,3 (soit dit en passant, plus 
que CP/M) : à ma connaissance, des 
programmes vedettes tels que Visi- 
Calc ou Apple Writer ne supportent 
pas (encore) ProDOS. 


de l’Apple //c 


Guy Lapautre 


connecteurs d'extension de l'Apple 
[/e. Habituez-vous à brancher direc- 
tement vos périphériques sur la bat- 
terie de connecteurs spécialisés, à 


l'arrière de l'appareil. 


Branchons. C’est simple. avec le lec- 
teur intégré et les connecteurs exter- 
nes. Petite désillusion, si vous n’y 
aviez pas fait attention, ni votre Dot 
Matrix, ni vos lecteurs de disques de 
l'Apple //e ne sont utilisables. 

La Dot Matrix est une imprimante 
parallèle, la sortie imprimante de 
Apple //c est une ”série”, Il va vous 
falloir acheter une autre imprimante, 
l'Image Wiiter d'Apple (la même que 
pour Mac Intosh) par exemple. 

Le contrôleur de disques n’a pas les 
mêmes caractéristiques que celui de 
l'Apple //e. 


Allons un peu plus loin 
dans la découverte 
Votre carte RGB ne trouve évidem- 


ment pas sa place, puisqu'il n'y a pas 
de connecteurs d'extension. Mais 
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vous trouverez. en série. un adapta- 
teur RGB fonctionnant sur prise Péri- 
tel Pas de difficulté de ce cété. 
Même le son est renvoyé sur votre 
téléviseur. ce qui peut donner des 
effets assez spectaculaires sur certains 
jeux. Si vous possédez la disquette 
Pom's No 11. essayez-la. vous serez 
surpris de la relative netteté de la 
voix synthétique. Quant au fonction- 
nement sur moniteur noir et blanc. 
pas de problème. Vous utilisez le 
même cordon de raccordement. 


À propos de moniteur. la position de 
notre constructeur préféré semble 
être du style ‘faites ce que je dis, ne 
faites pas ce que je fais. Vous trou- 
vez dans le manuel d'installation : 
"ATTENTION :- ne posez pas le télé- 
viseur (ou quoi que ce soit d'autre) 
sur l'ordinateur, ce serait trop lourd 
et bloquerait les ouvertures de venti- 
lation”. Et la couverture du manuel 
Utilitaires Système représente. un 
Apple // avec un moniteur qui sem- 
ble posé dessus (certes incliné pour 
dégager les ouvertures. mais quand 
même.) En fait. il s'agit du nou- 
veau moniteur Apple. avec son sup- 
port ‘étudié pour. 


Vos manettes de jeu ou votre joystick 
seront utilisés sans difficulté SI vous 
avez une version se branchant sur le 
connecteur arrière de votre Apple 
lle’ la prise est identique. 


Pas de place non plus pour votre 
carte 88 colonnes. mais c'est un dis- 
positif qui se trouve en série sur l'Ap- 
ple //c Avec commutation manuelle 
par poussoir sur l'ordinateur ou re- 
connaissance directe par le pro- 
gramme. 


Mais vous allez tomber de haut en 
abordant le chapitre des communica- 
tions : bien sûr. votre carte modem 
n'a pas sa place. mais de plus. RIEN 
d'analogue ne peut la remplacer 
Vous voici revenu au Moyen Age. au 
temps du modem acoustique par 
exemple. Pour un portable. 


Le clavier 


Doux, agréable à manier. il vous ré- 
servera quelques surprises. 


Fini le double clavier AZERTY/ 
QWERTY de l'Apple //e, si discuté. 
Vous avez un AZERTY normalement 
constitué. Les touches sont disposées 
EXACTEMENT de la même façon 
que sur le modèle //e, à l'exception 
de la touche RESET 


Une originalité en ce qui concerne le 
fonctionnement  majuscules/minus- 
cules. Sur l'Apple //e, la touche 
"Caps Lock” ne verrouillait que les 
26 lettres de l'alphabet, mais ni les 
chiffres ni les signes, ce qui est parti- 
culièrement énervant quand on doit 
frapper beaucoup de valeurs numéri- 





ques (ce n'est pas rare en informati- 
que...) Utiliser par exemple un ta- 
bleur en AZERTY relève plus du 
numéro de haute voltige que du mo- 
dèle de convivialité! Ici, ‘Caps 
Lock” verrouille tout, ce qui est très 
intéressant mais présente néanmoins 
des inconvénients, si on veut cette 
fois utiliser couramment "—" ”=" 7°" 
ou ”,” par exemple. Solution adop- 
tée : les touches majuscules fonction- 
nent comme des inverseurs. Si Caps 
Lock est enfoncée. elles font passer 
en minuscules. Sinon. elles font pas- 
ser en majuscules. Il faut un peu de 
temps pour s y habituer, mais c'est fi- 
nalement assez commode 


NDLR : Cela vous posera des pro- 
blèmes cependant si vous utilisez 
aussi un ÂÎBM PCXT. qui 5e 
comporte différemment. 


Autre originalité : vous pouvez main- 
tenant taper les commandes. ainsi 
que les instructions de vos program- 
mes Applesoft, en minuscules aussi 
bien qu'en majuscules : la conversion 
est faite automatiquement en majus- 
cules. Vous n’avez plus à craindre le 
méchant "SYNTAX ERROR" si vous 
tapez catalog” au lieu de ‘CATA- 
LOG” 


Et pour les fanatiques du QWERTY ? 
Ils ne sont pas totalement oubliés car 
une touche permet de simuler un 
clavier QWERTY sur le clavier 
AZERTY. Mais ce n'est qu'une roue 
de secours la signification QWERTY 
des touches n'étant pas indiquée sur 
celles-ci. il faut taper en aveugle. 
Tout le monde ne peut pas le faire. 


Systèmes d'exploitation 
et langages 


Le système d'exploitation standard 
de l'Apple //c est PRODOS. qui peut 
aussi équiper l'Apple //e. De même. 
l'Apple //c accepte le DOS 33 (mais 
pas les versions antérieures du DOS. 
Vous devrez convertir, ce qui est sim- 
ple). 


Vous pouvez aussi travailler en Pas- 
cal. en SUPER-PILOT ou en un 
LOGO nouveau, permettant une uti- 
lisation optimale de la mémoire cen- 
trale. Quelques frais à prévoir donc 
(après essai sommaire. il semble que 
Edi-Logo, dans sa version écrite pour 
le //e. fonctionne sur le //c). 


Mais - et c’est là où le bât blessera 
de très nombreux utilisateurs - pas 
question de Soft Card. donc de 
CP/M. Finis les logiciels prestigieux 
comme dBASE Il (que rien d'appro- 
chant ne vient remplacer}, ou 
WORDSTAR. Bons à jeter aussi vos 
propres logiciels en Basic Microsoft. 

Même ‘punition’ pour les adeptes 
de MEM/DOS. au moment où les 
auteurs de ce système annoncent 
précisément plusieurs nouveautés. 


L'Apple //c est un peu un ordinateur 
pour père de famille peu soucieux 
d'innovation et d'utilisation non stan- 
dard. À ce titre. certains le considère- 
ront comme une régression par rap- 
port au modèle //e malgré ses 
nombreux progrès technologiques et 
sa capacité de mémoire étendue. 
C'est sans doute pour cela que. pa- 
raît-il, le constructeur vise pour une 
bonne part le marché du ‘premier 
ordinateur”. 


C'est aussi pourquoi nous n'avons 
pas testé des logiciels très particuliers 
- dont sont souvent friands les lec- 
teurs de Pom's - tels que HAÏFA. 
PLE ou la gestion de masques. par 
exemple. 

Bien entendu. nous n'avons pas testé 
non plus les utilitaires classiques tels 
que copie. renumérotation, fusion de 
programmes, .. mais pour une autre 
raison : une version Apple //c accom- 
pagne la machine (en ProDOS, sur 
la disquette Utilitaires Système). 


Les langages utilisés dans les pro- 
grammes testés se répartissent entre 
Applesoft, Pascal UCSD. assembleur 
et même Basic Entier. bien que ce 
dernier soit fortement tombé en dé- 
suétude. 


Vos programmes 


Selon le constructeur. "90 à 95 % 
des programmes écrits pour Apple Il 
ou Apple //e sont compatibles Apple 
te”. Si l'on excepte les logiciels fonc- 
tionnant sous un système d'exploita- 
tion non supporté. cela paraît vrai 
quantitativement. Nous avons fait un 
certain nombre d'essais et aucun lo- 
giciel essayé ne s'est avéré totale- 
ment impropre à fonctionner sur //c. 
mais certains logiciels de premier 
plan sont pratiquement inutilisables. 


Nous aurons l'occasion d'examiner 
un certain nombre de dysfonctionne- 
ments. cas par cas. 


Par ailleurs. nous avons limité nos 
tests à des logiciels n'exigeant qu'un 
seul lecteur de disques (ce qui éli- 
mine par exemple Business Graphics 
ou Think Tank). 

Enfin, ne perdons jamais de vue que 
les logiciels testés sont des logiciels 
écrits pour l'Apple //e. D'ores et déjà, 
de nombreux auteurs proposent des 
logiciels nouveaux. ou des versions 
nouvelles, spécialement écrits pour le 
ilc 

Nous n'avons rencontré aucune dliffi- 
culté tenant à la reconnaissance de la 
carte” 89 colonnes, ni au niveau de 
l'adaptateur RGB. Relativement à ce 
dernier point, nous ne notons pas 
d'amélioration par rapport aux résul- 
tats obtenus avec la carte “Chat 
Mauve” sur Apple //e pour ce qui est 
de la qualité du texte sur écran gra- 
phique. C'est toujours très mauvais, 
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sauf pour les logiciels dont les au- 
teurs ont eu la bonne idée de choisir 
des solut.ons d'écriture monochrome. 


Les résultats des tests qui suivent ne 
visent nullement à constituer des 
bancs d'essai des logiciels correspon- 
dants sur Apple //c. Notre objectif 
était de vérifier si ces logiciels étaient 
acceptés. et si des dysfonctionne- 
ment évidents se produisaient. 1l est 
fort possible que certaines options 
posent des problèmes que nous 
n'avons pas rencontrés au cours de 
ce bref tour d'horizon. 


Les tableurs 


L'éternel Visicalc subit l'épreuve avec 
succès. dans sa version 40 colonnes. 
Il en est de même pour Magicalc, y 
compris dans son option 80 colon- 
nes. 


Muitiplan en revanche se tire moins 
bien d'affaire. Certes. les options que 
nous avons testées fonctionnent cor- 
çectement. Mais il existe un défaut 
rédhibitoire: les caractères sous le 
curseur sont totalement illisibles (que 
ce curseur se trouve à l’intérieur du 
tableau ou sur la ligne d'entrée de 
données). Une version spéciale 
Apple /ic est donc nécessaire (elle 
existe peut-être). Vous pouvez. utili- 
sateur du /’e. remiser votre disquette 
système au magasin des accessoires 
inutiles. À moins que le fournisseur 
ne propose un échange.. 


Pas de Calcstar bien sûr (CP/M). 
Les traitements de texte 


Magic Window II (Autotexte en Fran- 
çais) fonctionne normalement. ainsi 
que son complément Magc Mailer 
(Autocourier). 


Ïl y a en revanche des problèmes 
pour Apple Writer //e, La ligne d'état 
du système est perturbée par des 
taches b'zarres (interférence, paraît-il, 
avec le système de gestion des 
icônes spécial à l'Apple //c). Toute- 
fois. cet inconvénient n'empêcherait 
pas d'utiliser le logiciel (la chance 
veut que les dites tâches ne recou- 
vrent pas les mentions essentielles 
telles que pesition du curseur ou ca- 
pacité de mémoire utilisée), si ne s y 
ajoutait le même défaut que dans le 
cas de Multiplan: caractères sous 
curseur illisibles (y compris le nom 
du fichier qui est toujours totalement 
illisible). À noter qu'on dispose de 
46845 caractères. au lieu de 27645 
sur le /'e. 

Même remarques donc que pour 
Multiplan, ce qui met hors course 
une seconde vedette. Et bien sûr pas 
de Wordstar.. 


Les gestionnaires de fichiers 


Tout va bien pour les propriétaires 
de Visifile et de CX Multigestion (en 
48 colonnes) d'Omnis (malgré la 


Pom's n° 13 


jonglerie d'utilisation avec un seul 
disque), de P.F.S.. de Visidex. Même 
le vieux Doc Database (écrit en Basic 
entier, sous DOS 3.2, donc après 
transposition en DOS 3.3) passe sans 
problème. 


Mais voilà. Pas de dBASE Il (CP/M). 
Et pas de produit de remplacement. 
Certes. Omnis 3 est annoncé; mais il 
nécessitera 3 lecteurs de disques, et 
ne pourra donc pas toumer sur 
Apple //c, qui ne peut être muni que 
de 2 lecteurs (sauf à travailler sur dis- 
que dur?) À quand une VRAIE 
base de données sous ProDOS ? 


Les éditeurs graphiques 


Nous avions quelques craintes, 
compte tenu des différences relative- 
ment importantes dans le système de 
gestion de l'écran haute résolution. 
Elles n'étaient pas fondées. 


Nous n'avons pas pu faire l'essai de 
Business Graphics, qui exige 2 lec- 
teurs de disques. Mais Visiplot (qui 
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donne des tracés couleur sur écran 
de bonne qualité) aussi bien que 
Charts Unlimited passent la rampe 
sans difficulté. De même que Mat- 
graph (Pom's No 10). 


Quelques programmes divers (écrits 
par l'auteur) faisant appel aux pages 
graphiques haute résolution 1 ou 2 
n'ont pas posé d'avantage de problè- 
mes. 


Programmes de simulation et 
jeux 


Tous ceux que nous avons essayés 
ont fonctionné correctement, ce qui 
ne veut pas dire qu'il en sera tou- 
jours de même. 


C'est dans ce domaine que la 
connex'on double avec le téléviseur 
(RGB plus son) joue pleinement son 
rôle. De belles images (comme par 
exemple dans Adventure to Atlantis 
ou Twerps), et des bruits réalistes (on 
peut monter la “sono”, ce qui doit 
plaire à nos chères têtes blondes... }. 


Des simulations à vocation pédagogi- 
que écrites par l'auteur ont égale- 
ment donné des résultats satisfai- 
sants. 


En résumé 


L'Apple //c apparaîtra aux posses- 
seurs d'Apple //e comme une ma- 
chine agréable à utiliser et que l'arri- 
vée d'un écran plat rendra vraiment 
portable. À ceci s'ajoute la prochaine 
disponibilité de divers types de batte- 
res rechargeables, dont sans doute 
un modèle léger qui tiendrait dans la 
sacoche de transport. 


Chacun appréciera le clavier. la liai- 
son Péritel en série, le lecteur de dis- 
quette intégré, avec l'avantage d'une 
totale compatibilité avec le //e au ni- 
veau des supports, mais en regrettant 
parfois d’en rester aux 140K. Cet in- 
convénient devrait ètre rapidement 
compensé par la possibilité de 
connecter un disque dur, ou un mini- 
disque souple 31/2 (type Macin- 
tosh). 


% 


HEC 


+. ET MOI Œ 
TRANSFO | 





L'utilisation des logiciels écrits sous 
DOS ou Pascal ne posera guère de 
problèmes, avec une restriction pour 
deux des logiciels classiques les plus 
prisés : Multiplan et Apple Writer. 
Mais n'oublions pas la venue d'Apple 
Works, qui combine, avec l’utilisation 
de la souris, tableur, traitement de 
texte et gestionnaire de fichiers, dans 
des conditions satisfaisantes grâce à 
la capacité mémoire augmentée 
(ainsi bien entendu que de nom- 
breux logiciels nouveaux, écrits spéci- 
fiquement pour l'Apple fc). 


Les ”classiques”, qui ne sont pas à ia 
recherche de solutions plus où moins 
bricolées, devraient être de futurs uti- 
lisateurs heureux de l'Apple //c, avec 
comme seul vrai regret, pour nombre 
d'entre eux, l’absence de CP/M et du 
cortège de logiciels de premier plan 
écrits sous ce système d'exploitation. 


Les “bidouilleurs” … 
de s'abstenir. 


feraient mieux 
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Analyse de la VTOC 


Guy d'Herbemont 


Voici un petit programme d'inspec- 
tion de la VTOC (Volume Table Of 
Contents) d'une disquette en DOS 


catte langage}, mais pourra néan- 
moins examiner des VTOC situées à 
des endroits exotiques. pourvu que 


le DOS chargé en 
connaisse leurs adresses … 


mémoire 


3.3; il pourra, je l'espère, être utile 
aux débutants qui souhaitent com- 
prendre les mécanismes intemes du 
DOS, ainsi qu'aux programmeurs 
chevronnés qui désirent une routine 
rapide illustrant la place restante dis- 
ponible sur disque. 


Pour rappel, la VTOC est la table 
des matières d’une disquette, et le 
point d'entrée obligatoire pour toutes 
les opérations sur les fichiers. 


Le programme affiche d'abord un 
dump de l'en-tête de la VTOC (pour 
plus de détail, consultez le Manuel 
DOS d'Apple, page 125) puis le 
schéma d'occupation des pistes et 
secteurs. Enfin, il indique les nom- 


9700- O4 11 OF 
9708- 00 00 00 
9710- O0 00 O0 
39718- O0 O0 00 
9720- O0 O0 00 
9728- O0 00 00 
9730- 1F O1 O0 


bres de secteurs libres et occupés. D NE 
Le fonctionnement du programme O  O0000000000000000 
Se A A lt eo 0 0 000000 
roté à partir de 61000 (pour pouvoir 2 0000000000000000 
être utilisé comme sous-programme) 3  0000000000000000 
et commence par un appel au DOS 4  0000000000000000 
pour lire la UTOC actuelle. Après 3 0000000000000000 
avoir copié celle-ci (par la routine de 
SHLam - Voir Pom's 2) pour 6  0000000000000000 
qu'elle débute à une limite de page 7 0000000000000000 
et facilite ainsi la lecture avec le ma- 8  0000000000000000 
nuel, le programme enchaîne vers 9  0000000000000000 
l'affichage des pistes O à 17, puis 18 10 0000000000000000 
à 34 sur les colonnes de droite. 11 0000000000000000 
La sous-routine d'affichage calcule 12 0000000000000000 
pour cheque secur son st fre 13 0000000000000000 
jour le compteur de secteurs libres, et 14 O000000000000000 
affiche le tout. 15 O000000000000000 
: 18 O0000000000000000 
À noter que ce programme ne modi- 17 0000000000000000 


fie pas le DOS, Il ne fonctionnera ce- 
pendant pas avec des DOS placés à 
une adresse inhabituelle (32K ou 


OCCUPES=531, 


Exécution du programme : Premier écran 


Exécution du programme : Second écran 


0323456789ABCDEF 


0000000000000000 
0000000000000000 
1111111111111000 
1111111111110000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
1111000000000000 
0000000000000000 
1=SECTEUR LIBRE 


LIBRES=29, TOTAL=560 





1 REM ##+ PROGRAMME DISQG.VTOC ### 61060 PRINT SPC( 3)AS: PRINT :4 = 4606 
2 REM ##* AFFICHE VTOC DOS 3.3 ## 7:B = 46135:5 = 1:T = 4: GOSUE 61 
61010 CALL 45047: POKE 72.0: TEXT : HOM 200: REM PISTES O-17 
E : REM BUFFER=46011 61070 ViAë 1: TAB z4: PRINT 4S: PRINT 
61020 DEF FN P(X) = 256 * PEEK (X) + :A = 46133:8 = 46203:S = 21:T 2 
PEEK (X + 1) 4: GOSUB 61200: REM PISTES 18-34 
61030 BEF FN B(X)2 = X > 2 = INT (X > 51080 HTAB T: PRINT “1=SECTEUR LIBRE“ 
2): REM O=PAIR,1=IMPAIR 61030 PRINT : PRINT "“OCCUPES="S60 - N°“. 
61039 REM #»# DEBUT DE LA VTOC #* LIBRES="*N", TOTAL=560": END 
61040 AS = “3700<B3BB.B3FEM N3700.9737 N 61139 REM #»° ROUTINE D’AFFICHAGE #+ 
D823G"*: FOR 1 = 1 TO LEN (AS): P 61200 FOR I = À TO B STEP 4:X = FN PXI 
OKE S11 + EI, ASC ( MIDS (4S,1,1)) 1:XS = “": FOR J = 1 TO 16:XS X 
+ 128: NEXT : POKE 72.0: CALL - S +  STRS © FN BCXD}:N = N + FN 
144: PRINT : GET 4S: HOME : REM B(X):X = INT {X / 2): NEXT : HTA 
ROUTINE S.H.LAM B S: PRINT (I - 46067) / 4:: HTAB 


61049 REM 
61050 4S = 


+ TABLE DES SECTEUR 
“0123456783ABCDEF":N 


A me 0 2 2 de md me Le] 


S ## 
= À 


T: PRINT XS: NEXT : 


RETURN 
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Si vous perdez votre temps à recher- 
cher les petits bouts de papier sur 
lesquels vous inscrivez des informa- 
tions très précieuses, par exemple 
votre mot de passe pour DB Master, 
ce programme est pour vous : il per- 
met. en effet, de stocker dans un fi- 
chier bien propre des notes courtes, 
et toujours disponibles. 


Ce programme a été créé initiale- 
ment sur un Apple Il Plus muni de la 
carte minuscules ROM LC (NDER : 
ROM Lower Case, pour avoir les mi- 
nuscules sur un Apple Il Plus) et 
d'une imprimante Centronics 739. 
Cependant, il est assez simple, en 
changeant quelques lignes, de 
l'adapter à d'autres configurations 
qui ne permettent pas l'introduction 
de minuscules ou possèdent une 
autre imptimante. C'est ce qui est 
réalisé en partie par le programme 
BLOC-NOTES-DEBUT. qui donne le 
choix entre les configurations Apple 
I Plus, Il Plus avec ROM LC, /'e et 
lic. 


Description du 
programme 


BLOC-NOTES est un programme de 
saisie de notes non ordonnées d'une 
longueur maximale de 120 caractè- 
res, soit 3 lignes d'écran, qui pennet 
la lecture de toutes les notes ou 
d'une seule, la modification. la sup- 
pression ou l'édition dans l'ordre al- 
phabétique ou de saisie. 


Au début de l'exécution. le pro- 
gramme charge un utilitaire de tri, 
l'utilitaire PROGR48K publié dans le 
Pom's 5, et initialise une routine de 
génération de son et la routine "DOS 
7" du Poms 2 qui permet de 
connaître le nombre de secteurs en- 
core disponibles sur la disquette à 
chaque CATALOG. Ensuite, après 
avoir indiqué son nom et la date, on 
arrive dans un menu constitué de 
deux pages. 


Pour pouvoir écrire des notes, il faut 
d'abord ‘créer un fichier” (choix 3 
de la page 2 du menu) en indiquant 
le nom que l’on souhaite lui donner: 
cela crée un fichier annexe (suffixé 
par NB) qui contient le nombre de 
fches contenues dans le fichier ptin- 
cipal. 


Ensuite. il existe deux possibilités 


® écrire une note en prenant le 
choix 1 de la première page du 
menu: 

e faire le choix 1 de la deuxième 
page du menu, la "SAISIE RA- 
PIDE”, cette solution, lors d’une 


longue saisie, est très avantageuse. 


Les autres choix sont explicités par 
leur titre mème : 


LIRE TOUT LE FICHIER - LIRE 
UNE NOTE - EFFACER UNE NOTE 
- CORRIGER UNE NOTE - CATA- 
LOGUE DE LA DISQUETTE (nom- 
bre de secteurs libres) - EDITER 
TOUTES LES NOTES (en 132 ca- 
ractères par ligne) - DETRUIRE UN 
FICHIER - COMPACTER TOUT LE 
FICHIER : une note effacée n'est pas 
supprimée mais remplacée par des 
caractères blancs: il faut donc réorga- 
niser périodiquement le fichier. 


Sur le plan ergonomique, le pro- 
gramme permet, au lieu de répéter à 
chaque entrée le nom du fichier, de 
faire apparaître en tapant RETURN 
le titre du fichier en cours. Dans cer- 
tains cas, pour éviter de détruire in- 
tempestivement des notes ou méme 
le fichier entier, on est obligé de reta- 
per le nom du fichier. 


Configurations diverses 


Les opérations effectuées pour met- 
tre en oeuvre le programme avec di- 
verses configurations sont indiquées 
ci-dessous. Elles sont réalisées auto- 
matiquement par le programme 
BLOC-NOTES-DEBUT. 


Apple H Plus et ROM LC 


Après avoir fait le BRUN PATCH qui 
permet, quand on possède la ROM 
LC, de brancher les “minuscules”, 


on lance le programme par RUN 
BLOC-NOTES. 


Apple I Plus sans ROM LC 


Le programme MINMAJ de conver- 
sion minuscule/majuscule réalisé par 
Alexandre Avrane pennet de trans- 
former automatiquement, une fois 
qu'il est chargé. toutes les minuscules 
en majuscules. Il suffit de faire préa- 
lablement “BRUN MINMAÏ* pour 
utiliser le bloc-notes avec un Apple Il 
Plus sans ROM EC. Ce programme 
est désactivé par le RESET. Bien en- 
tendu, vous pouvez utiliser MINMAJ 
avec tout programme comportant 
des minuscules : les minuscules pa- 
raîtront alors sous la forme de majus- 
cules, y compris les minuscules ac- 
centuées et le ”ç”. 


Apple //e ou //c 


Dans le cas de l'Apple //e, il n'est pas 
nécessaire de “brancher” les minus- 
cules, il faut donc supprimer les 
PORKES qui avaient pennis de chan- 
ger CTRL-A en ESC pour le passage 


Bloc-notes 


Jerôme Leclercq 


Majuscule/minuscule {lignes 102, 
247, 905, 1045, 7001 et 9030). 
D'autre part, le résumé des lettres 
avec accent {é, à, à et ù) et de la 
cédille (c) n’est plus utile: on peut 
donc supprimer les lignes 158 à 175. 


Medification de l'imprimante 


Ceux qui ne possèdent pas la Cen- 
tronics 739 doivent modifier les 
codes à envoyer à l'imprimante dans 
les lignes 1785 (132 caractères de 
large), 1787 (écriture en condensé et 
en double largeur) et 1788 (fin 
d'écriture en double largeur). Ceux 
qui ne possèdent pas d'imprimante 
en 132 colonnes ont intérêt à modi- 
fier les lignes 190, 210, 560, 950. 
1010, 1160. 1350, 1433. 1440, 
1750, 2540 et 6060. 


Note aux auteurs 


En raison de l’affluence des contribu- 
tions spontanées reçues par Pom's, 
nous prions les lecteurs-auteurs de 
nous pardonner s’il nous faut quel- 
que temps pour analyser leurs créa- 
tions : à certaines périodes. nous re- 
cevons jusqu’à un aïticle par jour … 


Nous souhaitons aussi vous rappeler 
certains principes de base qui facilite- 
ront le travail d'analyse et de prépa- 
ration des articles. L'idéal est de 
nous faire parvenir une disquette 
contenant : 

e le(s) fichier(s) du programme pro- 
posé; 

e un ou deux fichiers d'exemples, si 
le programme utilise des fichiers 
extemes: 

e un texte sous forme de fichier 
TEXT en DOS 33 (au verso si le 
recto est dans un autre système 
d'exploitation), de préférence en 
Apple Writer: n'oubliez pas d’indi- 
quer dans ce texte, le cas échéant, 
l'assembleur utilisé ainsi que le 
type de matériel nécessaire, 


Pensez aussi à mettre une étiquette 
avec vos nom, adresse et numéro(s) 
de téléphone, ainsi qu’une indication 
du système d'exploitation (DOS 3.3, 
ProDOS, Pascal, …) utilisé sur cha- 
que face. Il est utile d'ajouter un lis- 
ting du catalogue de la disquette 
avec une brève explication du rêle 
de chaque fichier. 





Programme BLOC-NOTES.DEBUT 


ü  REM BLOC-NOTES DEBUT 
1 REM A6 10/46/84 
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10 TEXT : HOME : 


INVERSE : SPEED= 255: 


NOTRACE : VTAB S: HTAB lé: PRINT 
" BLOC-NOTES “: NORMAL :D$ = CHR 
$ (4) 


FRS ER ENTAPE 
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20 VTAB 15: PRINT : PRINT "1 - APPLE 11 100 PRINT : PRINT DS#"ERUN SHIFT.#&9400" : 








+": PRINT "2 - APPÈE I1+ AVEC ROM GOTO 120 
LC": PRINT °3 - APPLE IIE/11C" 110 PRINT : PRINT D$#"EXEC BLOC-NOTES.11 

30 VTAB 21: PRINT : PRINT "VOTRE CONFIG +LC“: END 

URATION? —--}"35: GET ÀA$:A = LVAai 126 PRINT : PRINT D$"RUN ÆAiCC-NOTES" 

A$): ON À GOTO 100,110,120: GOTO 

30 
40 NORMAL 
45 PRINT : PRINT Fichier EXEC : 


S0 PRINT "AVANT DE LANCER L’EXECUTION D 
U PROGRAMMEBLOC-NOTES, S1 Vous PO | BLOC-NOTES //+EC 
SSEDEZ LA ROM LC FAITES BRUN PAT 








CH” BRUN PATCH 
70 NEW RUN BLOC-NOTES 
5 REM FIN BE LA ROUTINE D'’ECRITU 
Programme BLOC-NOTES be uit 
SOO REY»! sereresepesesesesesee 
- - 
10 GOSUB 10000 e lecture e 
20 GOSUB 9000 * * 
SO GOTO 20 CÉTELLLIIILLILTILILLS LT.) 
100 REM 2stenporesesesessenese sS01 HOME : VTAB 12 
- - 502 PRINT ‘“Nétoyage mémoire: un peu de Patie 
. écriture - nce SVP‘**:AP = FRE (CO) 
" # 505 :1$;:= 2" 
nasersssannnnnnnnenes S10 TEXT : HOME 
LOLVTIS = M ECR = "0 S20 HTAB 16: INVERSE : PRINT “LECTURE‘": NORM 
102 POKE 40067,155 AL : PRINT : PRINT ‘Quel est le nom du 
103,X5 =" fichier à lire?"“:: & INPUT 15: IF Is 
105 TEXT < > “‘* THEN NOMS = 15 
110 HOME : PRINT * ECRITURE" 525 IF NOMS = ““ THEN POKE 768,255: POKE 76 
i2@6 PRINT : PRINT ‘Quel est le nom du fichie 9,208: CALL 770: GOTO 20 
re? “ii & INPUT IS: IF IS < > “* THEN | 530 PRINT NOMS: FOR T = 1 TO 300: NEXT T 
NOMS = 1is 540 GOSUB 4000: REM »« NB=? «+ 
130 IF NOMS = ““* THEN POKE 768,255: POKE 76 560 PRINT OPS + NOMS + ‘”’,L121" 
9,208: CALL 770: GOTO 20 570 FOR X = 1 TO NB - 1 
135 PRINT NOMS: FOR T = 1 TO 100: NEXT T: HO S80 PRINT RDS + NOMS + “,R‘“:X 
ME 590 & INPUT RPS(X) 
142 IF NB < > O THEN 150 600 NEXT X 
145 GOSUB 4000 610 PRINT CLS + NOMS 


150 IF NB > 500 THEN HOME : INVERSE : PRINT 615 HOME 
“CE FICHIER CONTIENT PLUS DE 500 ENTR 616 PRINT ‘Lecture de ‘“:NOMS 
EES": NORMAL : PRINT ‘ On ne peut pius 617 PRINT : POKE 34,2 


rentrer de nouvelle fiche. “: POKE 76 620 FOR Y = 1 TO NB - 1 
8,255: POKE 769,208: CALL 770: FORT = 625 IF RPS(Y) = “"“ THEN PRINT “-C";:Y;")":: 
1 TO 400: GOTO 20 FLASH : PRINT “NOTE EFFACEE !!*: NORMA 
158 HTAB 1: VTAB 19: PRINT “___ L : NEXT Y 
: TORRES PERS EE RETENIR Die “: VTAB 21: HT 630 PRINT “-(":Y:")":RPSCY) 
AB 1 640 NEXT Y 
160 PRINT “SHIFT 8: € SHIFT 9: & tre 642 PRINT : PRINT 
minuscules/MAJUSCULES: ESC 645 INVERSE : PRINT ‘> TAPEZ UNE TOUCHE APRE 
SHIFT P: à SHIFT 1: ùd* S LECTURE <*: NORMAL : GET QLSS 


185 PRINT ‘éééééeeesééééeééeééeéééééeeééeéée 646 NB = © 


éeéeeee“ SR S s frs 650 GOTO 20 
170 VTAB 1: HTAB 1 = 1° trémas à l'écran 400 KENM toseonsesenseceressenese 
175 PRINT ‘“éééeseeeeéeseeeeeeéeééérééééeeeeé n . 

ééééeèee" . correction . 
178 PRINT “Fichier ‘‘: NOMS . * 
180 PRINT ‘Entrez 120 caractères au maximum CEPPETTTTII TILL LLLLL 

{= 3 lignes )" 902 NOMS = “* 

183 PRINT ‘Fiche numéro “:: INVERSE : PRINT 3053 POKE 40067,155S 

NB: NORMAL 910 TEXT : HOME 
1853 PRINT 920 HTAB 15: INVERSE : PRINT ‘'CORRECTION‘: N 
190 & INPUT XS,L120 ORMAL 
19S IF XS = ‘’* THEN 20 923 PRINT : PRINT : PRINT : PRINT 
200 IF LEN (XS) > 120 THEN HOME : INVERSE 925 PRINT : PRINT “Quel est le nom du fichie 

: PRINT “CHAINE TROP LONGUE ERREUR*: F r? “:: & INPUT NOMS 

OR T = 1 TO 400: NEXT T: GOTO 20 926 IF NOMS = “* THEN POKE 768,2S5: POKE 76 
210 PRINT OPS + NOMS + “,L121"” 3,208: CALL 770: GOTO 20 
220 PRINT WTS + NOMS + “*,R'":NB 927 PRINT NOIMS 
230 PRINT XS 930 GOSUB 4000: INPUT ‘Quel est le numéro de 
240 PRINT CLS + NOMS la note que voua voulez corriger?";N 
245 GOSUB 4100 340 IF N > - NB THEN HOME : PRINT ‘Ce numé 
246 IF CT = 1 THEN 7030 ro n’existe pas": POKE 768,255: POKE 7 
247 POKE 40067,129 69,208: CALL 770: FOR T = i TO 400: NE 


24 Porm's n° 13 


950 
360 
970 
380 
s85 
990 
1000 
1002 
1003 


1010 
1020 
1030 
1040 
1045 
1050 
1100 


1105 
1110 


1120 


1130 


1135 
1140 


1145 
1150 


1160 
1170 
1180 
1190 
1200 
1205 


1216 


1215 
1226 


1230 
1300 


1305 
1310 
1320 


1330 


1335 
1340 
1350 
1360 
1370 
1380 
13930 
1400 


XT T: GOTO 20 


PRINT OPS + NOMS + “,L121° 
PRINT RDS + NOMS + “,R'‘:N 
& INPUT DAS 
PRINT CLS + NOMS 
HOME 
PRINT ‘CORRECTION: ‘*: PRINT DAS 
VTAB 2: HTAB 1: & INPUT TTS 
IF TIS = *” THEN:.20 
IF LEN CFTTS) > 120 THEN HOME : PRINT 
“Chaine trop longue erreur‘: POKE 768, 
2955: POKE 769,268: CALL 770: FORT = 1 
TO 300: NEXT T: GOTO 20 
PRINT OPS + NOMS + *,L121' 
PRINT WTS + NOMS + “,R'":N 
PRINT TTS 
PRINT CLS + NOMS 
POKE 40067,128 
NB = O: GOTO 26 
REM DE D De DE DE DE DE DE DE DE DE DE DE DE DE 9 D D D 
Li * 
* lecture âe note #* 
* * 
CRRRRRNRRRRNR EX EN NE # À 
HOME 
ATAB 10: INVERSE PRINT “LECTURE D’UNE 
NOTE‘: NORMAL : PRINT : PRINT :; PRINT 
: PRINT 
& INPUT 1S$,'Quel est le nor du fichier 
à lire? “: IF IS < > ‘‘‘’ THEN NOMS = 
1s 
IF NOMS = ‘‘‘" THEN SOKE 768,255: PFOKE 7 
69,208: CALL 770: GOTO 20 
PRINT NOMS 
PRINT : INPUT ‘@ueil est ie numéro de la 
note? ‘“;NN 
GOSUB 4000 
1F NN > NB THEN HOME : PRINT ‘Ce numér 
o n’existe pas”: POKE 768,255: POKE 76 
9,208: CALL 770: FOR T = : TO 400: NEX 
T T: GOTO 25 
PRINT OPS + NOMS + “,L121"* 
PRINT RDS + NOMS + ‘“,R‘':NN 
& INPUT SYs 
PRINT CES + NOMS 
INVERSE : PRINT “NOTE “;NN:"*:": NORMAL 
IF SYS = ‘“** THEN FLASH : PRINT “NOTE E 
FFACEE !!*: NORMAL : PRINT : PRINT : P 
RINT : PRINT : PRINT : GOTO 1215 
PRINT SYS: PRINT : PRINT PRINT : PRIN 
T3 PRINT 
VTAB 23 
INVERSE : PRINT “>TAPEZ UNE TOUCHE &À 
PRES LECTURE<®*: NORMAL : GET LSS 
NB = O: GOTO 20 
REM HONMNONN NODODE De dE D Me DE DE DE DE D D DE D D 
L21 L2 
* compactage * 
* #* 
RRRRRRRRRRRNRRRREE REX 4 
NOMS = ‘* 
TEXT : HOME 
HTAB 15: INVERSE : PRINT ‘COMPACTAGE®": 
NORMAL 
PRINT : PRINT ‘Quei est le nom du #fichi 
er à compacter ? ‘“:: & INPUT NOMS: IF 
NOMS = ‘‘* THEN POKE 768,255: POKE 76 
9,208: CALL 770: GOTO 20 
PRINT NOMS 
GOSUB 4000 
PRINT OPS + NOMS + “,L121*" 
FOR X = 1 TO NB - 1 
PRINT RBS + NOMS + ",R";Xx 
& INPUT RPS(X): NEXT X 
PRINT CLS + NOMS 
REM DOME DE DE D DE DE DE Dé D D D 96 dE De JD de 
L LA 
# RPS(Y) -> BAS(@) * 
LA LA 


CRRRRRRRRRRARRRRRERARA 
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1405 
1410 
1420 


1430 
1433 


1440 
1450 
1460 
1470 
1480 
1490 
1500 


1530 
1540 
1550 
1560 
1700 


1703 


1705 
171% 
1720 


1725 


1726 


1727 


1728 
1731 


1732 
1733 
1734 
1735 
1736 
1737 
1740 
1750 
1760 


1770 
1780 
1781 
1783 
1785 


1787 
1788 
1790 
1800 
1810 
1811 
1812 
1813 
1815 


1820 
1830 


Q = 1 
FOR: Y: =: 1 TO°NB. - 1 
IF RPSCY) < > “" THEN BAS(@) = RPS(Y): 
Q=G+1 
NEXT Y 
PRINT OPS + NOMS + “,L121'": PRINT DES + 
NONS 
PRINT OPS + NOMS + “,L121* 
FOR K = 1 TO Q - 1 
PRINT GTS + NOMS + “,R";K 
PRINT BAS(K) 
NEXT K 
PRINT CLS + NOMS 
REM CELELLLLLLLLLILLL LL LL 
# * 
* NB 4 * 
# # 
HRHRMMNNNMONON HD M DE NE NE M6 M 
PRINT OPS + NOMS + ‘".NB?7,L10" 
PRINT WTS + NOMS + “.NB?,R1" 
PRINT Q: PRINT CES + NOMS + ‘“.NB?7* 
NB = O: GOTO 20 
REM DD 06 De DE DE DE DD D D DE DE DE D DE DE D D D D 
* * 
* édition “ 
* #* 
mm md dd D De de D De dé 6 Dé 06 Dé dé 
HOME : VTAB 12: PRINT “Nétoyage mémoire 
: un peu de patience SVP'":AP = FRE (O 
2? 
NOMS = "" 
TEXT : HOME 
HTAB 16: INVERSE : PRINT ‘EDITION‘: NOR 
MAL ; PRINT 


& INPUT YTS,'Quel est le nom du tichie 


r à éditer ? PICTFOYTS <>, THEN 
NOMS = YTS 
PRINT NOMS: IF NOMS = ‘‘’ THEN POKE 768 
235: POKE 769,208: CALE 770: GOTO 20 


& INPUT NMS,'Numéro devant chaque entr 


ée ? “: IF LEFTS (NMS,1) = "O‘® THEN N 

M = 1 

IF LEFTS (NM&,1) < > ‘“O* THEN NM = O 

PRINT : & INPUT DIS,‘Double interligne 
? “5 & INPUT TCS,'"Tiret devant chaqu 

e entrée ? ‘’: IF NOMS - ‘* THEN 20 

IF LEFTS (815,1) = ‘"O" THEN DI = 1 

IF LEFTS (D1S,1) < > ‘“O" THEN DI = © 

IF LEFTS (TCS,1) = ‘“O" THEN TC = 1 

IF LEFTS (TCS,1) < > ‘“O* THEN TC = 0 

1F DIS = ‘“* THEN 20 

IF TCS = ‘** THEN 20 

GOSUB 4000: REM NB=? 

PRINT OPS + NOMS + “,L121* 

FOR X = 1 TO NB - 1: PRINT RDS + NOMS + 

ARE EX 

& INPUT RPS{X): NEXT 

PRINT CLS + NOMS 

GOSUB 5000 

PR£ I 

PRINT CHRS (9); CHRS (177); CHRS (179) 
: CHRS (178); CHRS (206) 

PRINT CHRS (27): CHRS 120): PRINT CHR 
$ (27): CHRS (14); TAB( 18)'"NOTES DU F 
ICHIER ‘“; NOMS 

PRINT CHRS (27): CHRS (15) 

FÜR P = 1 TO NB - 1 

IF RPS(P) = "“* THEN NEXT 

1F TC = 1 AND NM = O THEN HTAB 10: PRI 
NT “-"5" :RPS(P) 

IF TC = 1 AND NM = 1 THEN HTAB 10: PRI 
NT "(C";p;")- “:RPS(P) 

IF TC = O AND NM = © THEN HTAB 10: PRI 
NT RPS{P) 

IF TC = O AND NM = 1 THEN HTAB 10: PRI 
NT “(“;P;*) “;RPS(P) 

IF DI = 1 THEN PRINT 

NEXT 

PRINT : PRINT : PRINT ‘ “.NS:" 
le ‘“;DTS 








1835 FOR WE = 1 TO S: PRINT CHRS {1@): NEXT 
1840 PR£ O 
1841 PRINT : & INPUT PS@S,'"Voulez-vous une a 
vtre impression ? ‘: IF LEFTS (PGS,1) 
= “U“* THEN 1783 
1850 NB = O: GOTO 20 
2100 REM fheonceceneeenenenenne 
- - 
+ création fichier + 
- L 2 
tovcaissinnnentanennnsz 
2110 NOMS = 
2120 TEXT : HOME 
2130 INVERSE : PRINT ‘“ CREATION D’UN FICHIER 
‘‘: NORMAL 
2140 PRINT : PRINT : FLASH : PRINT “ATTENTIO 
N'': POKE 768,255: POKE 769,112: CALL 7 
70: NORMAL 
2150 PRINT ‘Lorsque l’on crèe un fichier, si 
un fi- chier du neme nom existe déjJà, 
il sera définitivenent effscé." 
2150 PRINT : & INPUT NOS,"Voulez-vous vraim 
ent créer un fichier ? * 
2170 IF LEFTS {NO$,1) < > ‘“O'* THEN POKE 7 
68,255: POKE 769,208: CALL 770: GOTO 2 
C 
2180 & INPUT NOMS,'"Quel est le nom du fichi 
er ? ‘“: IF NOMS = ‘‘‘ THEN 20 
2190 NB = O: &GOSUB 4100 
2200 GOTO 20 
2500 REM ersonhocenennhennnne 
L 2 - 
+ destruction fich, + 
L 2 L 2 
LRLRLLLLLLLELLILLLELLLLZLZ) 
2502 NOMS = 
2505 TEXT 
2510 HOME : HTAB {14): INVERSE : PRINT “DEST 
RUCTION‘: NORMAL : PRINT 
2320 8& INPUT NOS,'"Voulez-vous vraiment détr 
uire un fichier ? “2: ,1F LEFTS (NGS,1) 
< > ‘O* THEN POKE 768,255: POKE 769 
208: CALL 770: GOTO 20 
25330 PRINT : & INPUT NOïMS,'"Quel est le non 
du fichier ? “ 
2535 IF NOMS = ‘‘* THEN POKE 768,255: POKE 7 
69,208: CALL 770: GOTO 20 
25340 PRINT OPS + NOMS + ”,121* 
23550 PRINT DES + NOMs 
2360 PRINT OPS + NOMS + “.ND?* 
25370 PRINT DES + NOMS + ‘“.ND?* 
2580 POKE 768,255: POKE 789,112: CALL 770:NB 
< O: GOTO 20 
2900 REM RAR Recenniitentrece 
L 2 + 
. catalogue “ 
L2 - 
LÉRRELLLLLLLLLLELRLELLZLE) 
290353 TEXT 
2910 HOME : HTAB 14: INVERSE : PRINT “CATALO 
GUE'": NORMAL 
291} PRINT : PRINT ‘Drive 1 ou 2 ? “:: & IN 
PUT DRS:DR = VAL (DRS) 
2913 IF DR < 1 OR DR > 2 THEN DR = 1 
2925 POKE 34,2 
2930 PRINT CHRS (4)'"CATALOG,D"DR 
2935 PRINT 
2940 INVERSE : PRINT ‘>TAPEZ UNE TOUCHE APRE 
S LECTURE<‘': NORMAL 
2950 GET SDHS 
2960 POKE 34,0 
2990 POKE 768,255: POKE 769,112: CALL 77O:N8 
= O: GOTO 20 
3000 REM oronennnnnnnnannanae 
- - 
. erreurs * 
- - 
LERELLLLLLELLLLLLLILLLIE) 
3001 CALL 803: TEXT : HOME 
SES” 


26 


3062 
3003 


3004 


3005 


3006 


3007 


3008 


3010 


3015 
3021 


3022 


3030 


3939393 
4000 


4010 
4020 
4030 
4040 
4050 
a4i0u 


4110 
4140 
4150 
4160 
4170 
4180 
4300 


4310 
4320 
5000 


S001 


5010 
5020 
S030 
5040 
5050 
5060 
5070 


NOMS = “":NB = O 
L = PEEK {222): IF L = 5 OR L=60ORL 
= 11 THEN VTAB 11: PRINT “ERREUR DE D 
ISQUETTE‘: POKE 768,255: POKE 769,208: 
CALL 770: FOR T = i T@ 500: NEXT : GO 
TO: :20 
iF L = 4 THEN VTAB 11: PRINT ‘DIQUETTE 
PROTEGEE*: POKE 768,255: POKE 769,208 
: CALL 770: FOR T = 1 TO 500: NEXT T: 
GOTO 20 
IF L = 8 THEN VTAB 11: PRINT “PORTE DI 
SQUETTE OUVERTE": POKE 768,255: POKE 7 
69,208: CALL 770: FOR T = 1 TO 600: NE 
XT T: GOTO 20 
IF L = S THEN VTAB 11: PRINT “DISQUETT 
E PLEINE‘: POKE 768,255: POKE 769,208: 
CALL 770: FOR T = 1 TO 600: NEXT T: G 
OTO 20 
1F L = 10 THEN VTAB 11: PRINT ‘FICHIER 
VEROUILLE": POKE 768,255: POKE 769,20 
8: CALL 770: FOK T = 1 TO #00: NEXT T: 
GOTO 20 
IF L = 7 THEN VTAB 11: PRINT ‘VOLUME I 
NCOMPATIBLE": POKE 768,255: POKE 769,2 
08: CALL 770: FOR T = 1 TO 600: NEXT T 
: GOTO 20 
INVERSE : PRINT ERREU 
R ": NORMAL 
PRINT : PRINT : PRINT 
PRINT “Erreur en ligne ‘': PEEK {2182 + 
PEEK (219) + 256:" de code erreur ‘:L 
PRINT ‘Voulez-vous aortir du programme? 
#3: & INPUT POS: IF LEFTS (POS,1) < 
> ‘8 THEN NB = O: GOTO 3000 
HOME : PRINT ‘“ AU REVOIR !!* 
END 
REM fecooocososecenresecese 
La - 
. NB = ? ce 
# Li 
cecesececececececeecee 
PRINT OPS + NOMS + “.N87,L10" 
PRINT RDS + NOMS + ‘“.NH7,R1" 
INPUT NB 
PRINT CLS + NOMS + ‘.NB?* 
RETURN 
REM tesesescessshesesssense 
LA L 
* NB = NB + 1 Le 
Li * 
cecececececececersece 
NB = NB + 1 
PKINT OPS + NOMS + “.NB?,L10" 
PRINT WTS + NOMS + “.NB?,R1" 
PRINT NB 
PRINT CLS + NOMS + ”.NB?* 
RETURN 
REN tesssheseenenesenrese 
LA - 
Li fin Le 
# * 
LELRRLLLLLLILLILLLILLLLLZ) 
ROME 
GOTO 3022 
REX eoseseseeennhoecennnne 
- - 
. ti1 oui/non * 
- - 
RRRRRHRRRRRRRRRRNRAARER ER 
& INPUT FHS,'"Voulez-vous l’ordre alpha 
bétique? ‘‘: IF LEFTS (FHS,1) < > "O" 
THEN RETURN 
CD = NB - 1 
FOR Y = 1 TO CD:RP%(Y) = Y: NEXT Y 
T%(0> = CD 
Tx(12 = USR © VAL (CRPS(0) }) 
T%(2) = USR (RP%(0)) 
T%X(3) = 3 
T%x(4} = 2 
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5080 
5090 
5093 
6000 


6010 


6020 


6030 


6040 


6050 


6055 
6056 
6060 
6070 
6080 
6090 
6100 
7000 


7001 
7002 


7005 
7011 


7012 


7013 
7015 
7017 
7020 
7030 


7035 
7040 
7045 
7050 
7060 
89939 
3000 


3005 
3010 
3030 
3070 
3080 
3030 
9100 
9120 
9130 


9135 
9140 


9150 


CD = T%x(0) 
CALL 31232 
RETURN 
RENM DO DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE D 
LA “+ 
* destruction note * 
L 2 + 
RRRRRRRENRRRRRRRRNEER 
HOME : HTAB 14: INVERSE : PRINT “DESTRU 
CTION‘“": NORMAL 
& INPUT NOÏMS, ‘Quei est le nem du fich1 
er: 2 
1F NOMS = ‘** THEN POKE 768,2%5: POKE 7 
69,208: CALL 770: GOTO 20 
GOSUB 4000: INPUT ‘‘fue]) est le numéro d 


e la note que vous voulez détruire ? 


SN 
IF N > = NB THEN POKE 768,255: POKE 7 
69,208: CALL 770: GOTO 20 
RIS, = tie 
RESÇN) = "" 
PRINT OPS$ + NOMS + ‘,L121" 
PRINT WTS + NOMS + ‘,R'":N 
PRINT RIS 
PRINT CLS + NOMS 
NB = O: GOTO 20 
REM DO DEN DE DE DE DE DE DE DE DE DE DE DE DE DE DE D 
“ “ 
“ saisie rapide * 
L 2 LA 
RARE RE 
POKE 40067,1355S 
HOME : HTAB 13: INVERSE : PRINT “SAISIE 
RAPIDE‘: NORMAL : PRINT : PRINT : PRI 
NT : PRINT 
CGT AIS, "! 
& INPUT 1IS,"Quel est le nom du fichier 
? “5: IF IS < > ‘‘* THEN NOMS = Is 
IF NOM$ = ‘“" THEN POKE 768,255: POKE 7 
69,208: CALL 770: GOTO 20 
PRINT NOMS 
GOSUB 4000: REM NB:? 
HOME 
VTAB 2: GOTO 150 
HOME : PRINT “Pour arreter la saisie ra 
pide, taper ESCsinon tapez une touche 
quelconque" 
XS = 
S = PEEK ( - 16384): POKE - 16368,0 
IF S < 128 THEN 7040 
1F S = 155 THEN GOTO 20 
GOTO 7020 
END 
REM D DE DE DE DE DE DE DE DE DE D DE DE DE DE DE DE DE DE DE DE 
LI LA 
* menu # 
L 2 L] 
RRRRRRRRRRERRENRRRHRRR 
CT:.=."0 
TEXT : HOME 
POKE 40067,12S 
V = 1: GOSUB 9490: FOR V = 1 TO 22: HTAB 
1: PRINT ‘W'':: HTAB 39: PRINT “‘": NE 
XT V: GOSUB 9490 
VTAB 2: HTAB 10: INVERSE : PRINT ‘“BLOC- 
NOTES PAGE 1‘: NORMAL 
VTAB 3: HTAB 2: FOR I = 2 TO 38: PRINT 


“ée";: NEXT I 
FOR I = 1 TO 7: HTAB 3: VTAB 4 + 2 s j: 
PRINT I;".";MSCI)D: NEXT I 
VTAB 21: HTAB 15: PRINT “VOTRE CHOIX ‘'; 
CHRS (91);" “: CHRS (93): VTAB 21: HT 
AB 28: GET CS: PRINT CS 
V = VAL (CS): IF V = O THEN 9120 
IF°V°2> 7. THEN 9120 
EORI-. = 0 "TO" 7. 5 VE NTAB 18: 2% T5" HT 
AB 4: PRINT ‘>": IF I > O THEN VTAB 2 
O2 er TENATAB SÉSPRINTES 
NEXT 1l: IF V = © THEN FOR I = 1 TO 200 
: NEXT 


Porn's n° 13 


3530 


9540 
9545 
3550 
9560 
93570 


9580 
35930 
10000 


10001 


10003 
10004 
10005 
10008 
100093 


10010 
10020 
10050 
10060 
10070 
10080 
10090 
10035 
10100 


VTAB 4 + 2 x V: HTAB S: INVERSE : PRINT 
MS(V): NORMAL 
FOR I = 1 TO 100: NEXT I 
ON V GOTO 100,500,1100,6000,900,2900,92 
00 
REM D DE DE DE D DE D DE DE DE DE DE DE D DE DE DE DE DE DE DE 
L2 LA 
# menu page 2 Le 
COLOR RARARAÉ EX REA À À à à 
HOME :V = 1: GOSUB 93490: FOR V = 1 TO 2 
2: HTAB 1: PRINT “#'';: HTAB 39: PRINT 
“*\*:; NEXT V: GOSUB 93430 
VTAB 25 HTAB 9: INVERSE : PRINT ‘’BLOC-N 
OTES PAGE 2“: NORMAL 
VTAB 3: HTAB 2: FOR I = 2 TO 38: PRINT 
“é";: NEXT I 
FOR V = 8 TG 14: VTAB 2 # V - 10: HTAB 
3: PRINT (V - 7);"*.'";:MS(V): NEXT V 
VTAB 21: HTAB 15: PRINT “VOTRE CHOIX ‘: 
CHRS (91);:" “; CHRS (93): VTAB 21: HT 
AB 28: GET CS: PRINT CS:V = VAL (C5) 
IF V = O THEN 9260 
EOR:k:=" 0: TOr7 = VEENTAS 1ar="2: MOI CHAT 
AB 4: PRINT ">": IF I > O©O THEN VTAB 2 
Oc=n2u% SIEVRTAB. AS PRINT. *"," 
NEXT I: IF V = 7 THEN FOR I = 1 TO 200 
: NEXT 
VTAB & + 2 « V: HTAB S: INVERSE : PRINT 
MS(V + 73: NORMAL 
FOR I = O TO 100: NEXT ï: 
ON V GOTO 7000,1700,2100,2500,1300, 4300 
# 3000 
VTAB V: HTAB 2: FOR H = 2 TO 36: FKINT 
“&“;: NEXT H: RETURN 
REN DD DE DE DE DE DE DE DE DE DE DE GE DE DE DE DE DE DE DE DE 
L 2 * 
#* secteurs libres #* 
LA - 
FRS RNR NN EN N 
YS = "“A884:5B N ADC3:20 00 86 N B6O00:A2 
OC 20 4A F9 AS 00 85 40 85 41 AO C8 18 
B9 F2 B3 FO OE OA 90 FB 48 E6 40 DO O 
2 E6 41 68 18 90 FO 88 DO ES A6 40 AS 
41 AC OO EO C® 20 DO O7 20 1B ES 20 2F 
ÀÂE 60 20 24 EB 20 2F AE 60" 
GOSUB 9550 
RETURN 
YS = YS + “ N D9CEG* 
FOR T1 = 1 TO LEN {Y5) 
POKE S11 + I, ASC { MIDS (YS,1,1)) + 12 
8 
NEXT : POKE 72,0: CALL - 144 
RETURN 
REM ou de 26 06 26 06 06 06 06 06 06 26 06 DE 06 6 DE 26 26 26 
L 2 LA 
* initialisation * 
LA * 
LÉLLLLELLLLILLILLLLLLLZ: 
TEXT : HOME : VTAB 10: PRINT ‘initiali 
sation de la routine de tri, de ia 
routine de Génération de son, et d 
e la routine permettant de savoir ie 
nombre de secteurs libres à cheque 
CATALOGUE" 
HIMEM: 31230: PRINT CHRS (4)'"CLOSE" 
GOSUB 20000 
GOSUB 40000 
GOSUB 45000 
GOSUB 9500: HOME : VTAB {10): PRINT ‘ce 
hargement de PROGR48K, et de TRIL.M3" 
PRINT CHRS (4)"BRUNPROGR48K" 
PRINT CHRS {4)"BLOADTRIL.M3" 
DS = “+ 
OPS = DS + “OPEN 
RDS = DS + “READ" 
CLS = D$ + "CLOSE" 
WTS = D& + "WRITE" 
DES = DS + "DELETE" 
NOTRACE 











10105 ÈONERR GOTO 3000 40000 REM #nnanRRRRnRRuRnRnRR nee 


10107 DIM RPS(500),BAS(500) ,MS(14) dl * 
10108 DIN RP%x(500),Tx(4) * init. rout. tri »* 
10110 HOME : PRINT “Le Programme est chargé : Pl 
“: PRINT : PRINT “Retirez le disquette EU DA D 0 OO HE 
programme": PRINT : PRINT “et mettez 40010 POKE 10,76: POKE 11,26: POKE 12,3 
la disquette données * 40020 POKE 734,165: P8KE 795,132 
10115 POKE 768,255: POKE 769,212: CALL 770 40030 POKE 796,164: POKE 797,131 
10120 PRINT : PRINT “Quel est votre nom ? “; 40040 POKE 798,76: POKE 799,242: POKE 800,22 
: & INPUT NS 6 
19125 1F NS = ‘“‘* THEN VTAB 6: CALL - 868: URSS LA PEEURN 
GOTO 10120 45000 HI LEE LLLLLLELEELLLLLLEE) 
10130 PRINT : PRINT “Quelle est la date? “:: " * 
& INPUT DTS # xnit. rout. son #* 
M 10135 IF DTS = ‘“* THEN VTAB 8: CALL - 868: . à 
Le GOTO 10130 LERELELILLIELLLLLILILIZLZ] 
FE 10160 FOR I = 1 TO 14: READ MS{1): NEXT 45010 MU$ = “300:02 O2 AD 30 CG 88 DOG OS CE 0 
M 10300 G&GOTO 20 1 03 FO 09 CA DO F5 AE OO C% 4C O2 O3 
DH ÏZOOOO REM #0 2 26 oo 06 0.0 0 0 0 0 088 mn 0 0 60 NDSC6G": FOR I = 1 TO LEN (MUS): P 
# # OKE S1l1i + 1, ASC ( MIDS (NÜS,I,1)) + 1 
*“ routine d'erreurs * 28: NEXT : POKE 72,0: CALE = 144 
x 5 45020 RETURN : REM 


LELLLLLLLLELLLLLLLELZLZ)] 
50300 DATA ECRIRE,LIRE T@SUT LE FICHIiER,LIRE 
UNE NOTE,EFFACER UNE NOTE,CORRIGER UN 
E NOTE.CATALOGUE DE LA DISQUETTE,SUITE 








20010 RES = “323:68 A8 68 A6 DF SA 48 98 48 6 MENU 
RONBORR Sr ROBIEN JON ENS AREEOS IE 50310 DATA SAiSIE RAPIDE,EDITER TOUTES LES N 
KE S11 + I, ASC ( MIDS (RES,1,1)) + 12 OTES,CREER UN FICHIER,DETRUIRE UN FICH 
8: NEXT : POKE 72,0: CALL - 144 IER,COMPACTER TOUT LE FICHIER,FIN,RETO 
20020 RETURN : REM UR DEBUT MENU 
7430- 02 FO OD EO 03 FO 13 EO 
Programme PATCH Programme PROGR 48K 7438- 05 FO 13 A9 FF 85 8A 60 


7A40- À9 80 91 95 98 CB 91 95 
7A48- DO OE A9 00 FO 02 A9 FF 


PÉ00 AP ID}OD: F2 108, A9 SC en, 7 P000e1A7 A0 ODLPS 0808 1060 mA US EP de ne 


9C08- F3 03 20 6F F8 A9 28 RS 9308- Fé 03 A9 93 8D F7 03 A9 le 
9C10- 38 A9 9C 85 39 A9 98 BD 9310- 00 85 73 A9 93 85 74 60 2607 02 Eé 96 18 AS 6B 65 7 
9C18- 01 9D 4C D3 03 A9 28 85 9318- 02 BE 80 C9 84 FO 1D c9 7687 85 99 90 02 Eé 94 AS 93 
PC20= 38 49 90-65 39 AC 6F 9D  9920-/A8 FD 12 C7 FO1FU 12.09, +770 D0 08 C6 74 06-78) 0007 
9C28- 8E Dé 9C 08 48 E0 00 80  9328- 85 FO 08 C9 AA DO 03 4c 71787 AS 94 DO 03 85 8A 60 18 
9C30- 03 8E D4 9C BA BD 07 01  9330- 4E 94 60 4C 2F 94 4C FF  /AB0- ÀS 95 85 97 65 8A 85 9S 
9C38- C9 77 DO 11 8D 08 O1 C9 9338- 93 4C 05 94 A4 25 84 07  7À88- ÀS 96 85 98 69 00 85 96 
9C40- FD DO DA A9 Bé 9D 07 01 9340- A4 24 84 08 A9 00 85 09 27707 16 AS 99 85 9B 65 88 65 
9C48- A9 9C 90 08 01 68 AE bé 9348- 85 0é 20 81 00 20 E3 DF 778 7? AS 9A 6S 9C 67 00 ES 
9C50- 9C 8D D? 9C A4 24 A9 20 9350- 20 éC DD 85 85 84 86 A9 AAC A 20 CA 7A 20 FO 7A 10 
9C58- 91 28 A9 10 20 AB FC Eé  9358- 00 81 88 C9 2C DO 35 20 /88- 1B 20 36 78 38 AS 97 ES 
9Cé0- 4E DO OF Eé 4F Bi 28 CD 9360- 81 00 C9 4C FO 14 c9 56  /AB0— 8A 85 97 BO 02 Cé 98 38 
PCÉ8- 5796-00; EN AD: D2?E AC 9880 "FOUTUUES ABUADrLDr C9 22 PER AA 7B "ES" SR ES PRYEUUER 
2020-58 PC AD D? PE SC 00 COL /9270- D0 00 0E4 06-10 94:90 40 M NC0R Cé PE POVE0 207 67-78 "2€ 
9C78- 10 ES 91 26 AD 00 CO 2C 9378- BD 94 20 FS Eé 86 09 4c  ZACB7 6E ?A A4 8A CO 0S FO 0P 
?C80- 10 CO C9 Bi DO OD AD D4  9380- 57 #3 20 F5 Eé CA 86 07 ZAD0_ FO 40 07 àû où àS 9e 20 
9C88- SC 49 FF 8D D4 9C Bi 28  9388- 4C 57 93 20 FS Eé CA 86 
9C90-—.4€ S1 SC: 26 D4:9C 10 ID 9390- 08 40 57 93 A5 07 es 25 2AE07 F?/EA ÀA9:6B F0.0? 88 BI 
9C98- 8C DS 9C AU OA 88 30 08  9398- AS 08 85 24 20 22 FCAS 7AE6T 7? 97 ÀS 00 66 10 F6 60 
9CA0— DS CO 9C DO F8 87 CA 9C  932R0- 06 FO 12 36 20 81 DE 28 F0" 6 BA E0 03 FO 1C 90 0? 
SCAB- AC DS 9C C9 DB BO 06 C7  9346- 3D DB EA EA EA En EAEA  7AFB7 À4 96 ÀS 97 20 B2 E8 A8 
9C80- C1 90 02 09 20 28 60 DABD= EAN EA 2007400 A 09 PS COUR ONE AONUETS 6 ANNE FT RAS 
2368 19 49/92 d020064 Fc 49 2008. 68 AS 70 F1 7750 02092 
SE AE 20 :ED ED CA Da En 44 0 (610 FE 60 40002 BI 7 99/00 
DCR 0092610) FENCAUDALEA 60 261050 00-68 A RC ÉS: CA AR FE 


SADD= Be do 20 LE ED A EU 1€ 2020-F0- 64 9D: F0.08 "61: PELDI 
28D8- BD FF 01. C7:09 F0 14-60. 7828 1,70 05/"D0;66€8 DU; ED 


93E0- FF 01 29 7F 9D FF 01 CA  7830- A9 FF 60 A7 00 60 A0 00 

S2ED DO Fe A0 00-40-02) A270D SSP Dh 9748 CES SRNDONER 

Programme MINMAJ SAEd :e0 ED ES 20: où Da as: 000 7640 #6 JU 0N AB 00 M0 71-97 

re Cr A 7B48- 88 C4 8A 80 F8 AS 88 FO 

7850- 17 A0 00 Bi 9B 48 CB C4 

9A00- A9 0F 85 36 A9 9A 85 37 7858- 8B DO F8 98 iB 0A AB 88 

9A08- A9 00 85 48 4C EA 03 8D 7860- 68 91 9B 88 C4 8B BO F8 

9A10- 4A 9A 08 8A 48 AD 4a sa Programme TRIL. M 3 7868- 60 18 A5 97 65 8A 85 97 

SA18- A2 07 DD 3A SA FO OC CA 7870- 90 02 Eé 98 A4 8A CO 05 

SA20- 10 F8 C9 E0 90 08 38 E9 7A00- A0 00 B1 83 85 94 C8 81 7878- FO 08 88 89 9D 00 91 97 

9A26- 20 DO 03 8D 42 SA 6D 4A  7A08- 83 85 93 C8 B1 83 85 96  7880- 88 10 FB 30 06 A4 9B AA 

9A30- SA 68 FA 26 AD 4A FA 4C 7A10- CB Bi 83 85 95 CB 81 83  7088- 20 26 E8 A4 86 FO 14 88 

9A38- FO FD CO DC EO F8 FC FD 7A18- 85 SA CB 81 83 85 99 C8  7890- 18 AS 98 65 88 85 98 90 

SA40- FE FF Ci C3 A1 C5 D5 C5 7A20- CB 81 83 BS 8A C8 C8 B1 7B98- 02 Eé 9C 89 A5 00 91 98 
9A48- AD A1 00 FF 7028- 83 85 8B A0 00 A6 BA EO  ?BAO- 88 10 F8 60 
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Lors de la mise au point d’un pro- 
gramme Basic. on a souvent besoin 
de connaître le contenu des vatia- 
bles. Il faut pour cela faire d'innom- 
brables PRINTs pour les variables 
simples et les tableaux : des boucles 
FOR-NEXT qui ont comme désavan- 
tage d’être longues et fastidieuses à 
l'usage ainsi que muettes sur le rang 
des variables dans le tableau. De 
plus. un autre problème peut se pré- 
senter: supposons que le pro- 
gramme Basic crée une variable, V 
par exemple, qui s’annule durant le 
traitement. Comment savoir si le dé- 
roulement du programme a été nor- 
mal: si l’on tape ‘PRINT V” après 
l'exécution. l'Applesoft répondra par 
un 0” difficilement exploitable. 


PRNVAR (PRiNt VARiables) permet 
de faire disparaître ce genre de diffi- 
cultés, tout en fournissant des rensei- 
gnements supplémentaires, avec 
l'aide du fameux ‘&” (ampersand) 
de l'Applesoft déjà fréquemment mis 
à contribution dans Pom's. 


Ce programme permet aussi de 
mieux comprendre l’organisation des 
variables en Basic, grâce à l'option 
"P” en particulier. J'ai ainsi appris, 
en tapant ”XG!A”’ au clavier, non 
seulement que cela engendre une 
SYNTAX ERROR. mais aussi que 
l'on crée par cette ’instruction” une 
variable réelle nommée ”’XG”. 


Utilisation de PRNVAR 


Ce programme affiche, selon les op- 
tions qu’on lui fournit : les variables 
alphanumériques, réelles et entières, 
dimensionnées (tableaux) ou non, 
ainsi que leur adresse d'implantation 
et. pour les tableaux, leurs dimen- 
sions. 

En outre, les fonctions pourront être 
signalées. 


La syntaxe de cette nouvelle 

commande ajoutée au Basic est fort 

simple : 

e ‘’&” seul, affiche toutes les varia- 
bles, quelle que soit leur nature. 

e ‘”’&)"” affiche tous les tableaux. 

© ‘&R” (resp ’&%”, ”"&$” ou 
"&#"”), affiche les variables sim- 
ples réelles (resp. entières, alpha- 
numériques ou représentant une 
fonction). 

e ‘'&(R)"” (resp. ’&(%)” ou ’&($)”), 
affiche les tableaux réels (resp. en- 
tiers ou alphanumériques). 


Remarque : la commande ”’&(#)” 
n'aurait aucun sens, car les tableaux 
de fonctions n'existent pas, et sera 
donc ignorée. 
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Impression des variables 


On peut aussi 


commandes : 

"&(R%)$"” aura pour effet d'afficher 
les tableaux réels et entiers ainsi que 
les variables simples alphanuméri- 
ques. 


regrouper des 


La place des caractères n’a aucune 
importance : 


"&$(%R)” aura le même effet que 
précédemment. 


Cependant, il est bien évident que : 
"&($)%R°” n'aura pas le même effet. 


Options pratiques 


Il y a en outre deux options possi- 
bles : 


e O: la présence de ce caractère 
dans la commande précise que 
vous voulez voir apparaître les va- 
riables nulles (celles-ci étant igno- 
rées autrement). On peut toutefois 
inverser sa fonction, si on le dé- 
sire, en remplaçant aux lignes 221 
et 327 "BNE” par "BEQ”. 


e P: la présence de ce caractère 

précise que vous voulez voir appa- 
raître l’adresse d'implantation du 
contenu de chaque variable à côté 
du contenu de celle-ci Cette 
adresse correspondra en fait à 
l'endroit exact où est implanté le 
contenu de la variable. On obtient 
l'adresse du nom d'une variable 
simple en soustrayant 2 à l'adresse 
du contenu. Pour les tableaux, 
après par exemple DIM A(10), il 
apparaîtra en premier ’TABLEAU 
A(11} EN : HHLL”, HHLL corres- 
pondant à l'adresse d'implantation 
du nom du tableau. Remarquons 
au passage que ce n'est pas A(10) 
maïs A(11} qui est affiché, cela 
provient du fait que DIM A(I0) 
génère 11 éléments (de O à 10). 
Enfin, pour les variables représen- 
tant une fonction, viendra s’ajou- 
ter la ligne Basic où celle-ci a été 
définie. 
Encore une précision: pour des 
raisons de présentation, seuls les 
douze premiers caractères des va- 
riables alphanumériques seront af- 
fichés. 


Pour obtenir l’une et/ou lautre de 
ces deux options, il suffit d'introduire 
°0” et/ou ”P” dans la commande, à 
n'importe quelle place. 


Remarque : tout autre caractère que 
°R”, DE 74" Er RCE Ve 0e 
ou "’P” est considéré comme une de- 
mande de tout afficher dans la caté- 
gorie des variables prises en compte 
(simples et/ou dimensionnées). Ainsi, 


Laurent Esnault 


’&X" affiche toutes les variables sim- 
ples sans les tableaux. 

Enfin, on peut obtenir une pause 
dans l'affichage en appuyant sur 
n'importe quelle touche du clavier et 
le relancer en faisant de même. On 
revient au Basic par CTRE-C. 


Description générale 


Ce programme fait 880 octets et 
peut donc être placé juste avant le 
DOS (HIMEM: 9600), en $9290. 
Pour la sauvegarde sur disquette, 
LISA utilisant la page mémoire 
$9500-9600. il faut opérer ainsi : 


1 - Taper le programme et l’assem- 
bler {!}: le code objet sera alors 
implanté en $800. 

2 - Faire CTRL-D 
PRNVAR.A$800 L$365”. 

3 - Booter une disquette sous Apple- 


soft (Basic). 
"BLOAD PRNVAR. 


4 - Faire 
A$9290”. 
5 - Faire enfin "BSAVE PRNVAR, 
A$9290.L$370”. 
Sa mise en fonction se fera ensuite 
simplement par BRUN PRNVAR”, 
ceci ayant pour effet de charger je 
programme en mémoire et de mettre 
à jour le vecteur & et les pointeurs 
HIMEM, FRETOP, ARYTAB et 
STREND. Les variables seront alors 
effacées. Il est donc préférable de 
faire "BRUN PRNVAR” avant l'exé- 
cution d’un programme Basic si l'on 
veut connaître le contenu des varia- 
bles que celui-ci aura créées. 


"BSAVE 


Passons au programme en lui-même. 
I} est constitué de trois parties princi- 
pales : 


1 - TRTAMP: traitement de la 
commande, c’est-à-dire l'analyse des 
caractères suivant l’ampersand et la 
détennination des choix et options. 
On y utiise CHRGET, sous-pro- 
gramme d'acquisition de caractères. 
2 - TRAITM : traitement des varia- 
bles simples. On effectue un ba- 
layage de la zone des variables sim- 
ples (LOMEM-—ARYTAB), à la 
recherche d’un certa'n type de varia- 
bles (entières, réelles, alphanuméri- 
ques ou représentant une fonction); 
lorsqu'on en a trouvé une, on l'affi- 
che en tenant compte des options 
éventuelles. Quand ce premier ba- 
layage est effectué, on passe à un se- 
cond type de variables (si l'utiisateur 
l'a demandé). N'oublions pas qu’une 
variable simple occupe 2 octets pour 
son nom et 5 octets quel que soit 
son type. 

Il faut aussi remarquer que les varia- 
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bles représentant les fonctions (im- 
plantées uniquement dans la zone 
des vatiables simples) contiennent 
l'adresse d'implantation de la fonc- 
tion dans le programme ainsi que 
l'adresse pointant sur le contenu de 
la variable prise en compte dans la 


L'organisation des variables est la 

suivante : 

- 2 octets pour le nom; 

- 2 pour la longueur du tableau: 

- 1 pour le nombre de dimensions 
(inférieur à 89); 

- 2 pour chaque dimension. 


Viennent enfin les sous-programmes : 
quatre principaux. dont les REMs du 
listing expliquent la fonction. 


Voilà, je pense avoir tout dit. Vous 
êtes maintenant en possession d’une 
commande supplémentaire qui, insé- 
rée dans le programme aux points 


fonction (exemple : X pour DEF FN Plus : ss Sn A RE 
A{X)=...) - 5 octets par élément pour les stratégiques” et associée à la fonc- 
3 - TABLEAU : traitement des ta- réels; ton TRACE, constitue une EAUe rès 
bleaux. Il est similaire au traitement - 2 pour les entiers; efficace pour la chasse aux bugs”. 
des variables simples, mis à part le  - 3 pour les alphanumériques (1 La disquette de Pom’s comporte un 


fait que l’on affiche les dimensions 
de chaque élément du tableau pris 
en compte (balayage de ARYTAB à 
STREND). 


pour la longueur de la chaîne et 2 

pour l'adresse d'implantation). 
(Pour plus de détails, voir le manuel 
de référence de l'Apple Il} 


second programme de démonstra- 
tion, appelé DEMO2. 





LISA 2 5 70 STY HIMEM-+1 
D 71 STA FREÉTOE 
72 STY FRETOP+1 
73 LDA LOMEN 
1 NLS 74 LDY LONEM-1 
2 TTL “AFFICHAGE LE VARIABLES Pak L'6" 75 STA ARYTAB 
EN: CELELLLLLLLLEELLELLLLLLLLELLLT) 76 STY ARYTAB-1 
a : . . 77 STA STREND 
S ; . PRNVAR ° 78 STY STREND-1 
6 : = 73 RTS 
7 . Par Laurent ESNAULT . 80 : 
8 : Le , 8 :; 
S3 . APPLE 11 . 82 : nn nnnnnnnnnnnuss 
10 . ° 83 ; . ° 
1i ; . 04/1984 + 84 : «+ TRAITEMENT DE L'’& - 
12 H LÉLRLLLL LILI RRRRELRLELELELLLZ) 8s : - - 
13 86 ; LLLELELELELLLELELELLLLZZEEE)] 
14 87 ; 
15 : non nnnnnnnnnnnnnnnnns â4 TRATAMPBS LDY #0 
16 ÿ e L 8e STY AMPERS 
743 “ Definition des adresses #* LI] STY @PNUL 
18 : . e gi STY OPPOIN 
18 : CELELLLLLLLLLLLELLEELEELLELLLLEZ) 92 TRTaAnP Tax :S1 c'eet “:" 
20 : 93 BEQ FIN :Ou ‘00 alors 
21 ÿ 1) EN PAGE ZER® : 934 CPX #°:° Fan ce 18 
22 ; 3s BEQ FIN :Comnande 
23 ADVAR EPZ SF3 :Pointeur general 6 : 
24 INPLDIN EPZ sF9 97 CPX #7 (° 
25 LORER EP2 56 8 BNE SUITEI1 
26 HIMEXM EPZ 573 ss LBeY #1 
27 HTAB EP2 Sz4 100 BNE NEWBCL 
28 vo EPZ SCE 1012 SUITEL CPX #°)° 
29 Vi EP2 SCE 102 BNE COMPAR 
30 FRETOP EPZ S6i 103 CPY #1 
31 STREND EPZ S6b 164 BEQ SUITES 
32 ARYTAB EPZ Ss6B 105 LDA #%11110000 
33 CHRGET EPZ SE] 106 BNE RETi 
34 ; 107 ; 
35 ; 2) ABSOLUES : 108 SUITE3  LDY #0 
36 ; 1e BEQ NEWBCE 
37 VECTEUR EUU S3F5 116 ; 
38 KB8D EQU SsCooù 111 9 = mmmemmmmmmmmmenssse 
39 KEYSTR  EQU SCO10 112 : À x 
40 ADDIM EQU s300 119 ‘3 - Un compare X avec les codes - 
41 #OvVE“ EQU SEAF93 2 (Y,4) --2FAC 114 : - Ass de ‘O’et ‘PP’ (options)- 
42 COUT EQU SFDED sAffiche CHRS(A) 115 : - Puis de ‘K’,’S’,'x" ét ‘“#', - 
43 STROUT EQU SsDB3A Affiche la Chaine (A.Y) 116 : - = 
44 PRNFAC EQU SED2E sAffiche Fac 117 s  =-cssonmasencnsmse-2ñf 
45 CROUT EQU SFDBE :Ketour chariot 11# CONPAR LBA #i 
46 PRBL2 EQU SF94a :X espacez 115 CPX #'0' 
47 PRNTAX EQU SF941 sAtticne A et X 120 BNE PASU 
48 LINPTR EQU SED24 Affiche Xr256+A 121 STA UPNUL 
49 GJIVAYF EQU SE2F2 122 BE@ NEWBCL 
$O BELL EOU SFF3A 123 PASO CPX #'°p° 
S1 ; 124 BNE PAS? 
S2 ; 125 STA UPPOIM 
53 ORG s=3290 126 BE@ NEUBCL 
Sa O0BJ sB00 127 : 
5S ; 128 PASP CPX #’R° 
OR PO CAS DOTE OU: TEA 129 BEQ FINBCL 
S7 ; = = 130 ASL 
S8 :; - Stocke la vecteur & et - 131 CPX #'s’ 
S9 ; + Les nouveaux pointeurs. ini 132 BE@ FINbCL 
60 :; - (=CLEAR) - 133 ASL 
SEPT Er SR nn Pre 134 CPX #°x' 
62 ; 135 BEQ FINBCi 
63 LBA #sac 136 ASL 
64 STA VECTEUR 137 CPX #°#° 
65 LBA #TRTAMNPO 138 BE6 FIiNBCL 
66 LDY /TRTAMPO 139 LA #xO00001111 
67 STA VECTEURe1 146 ; 
68 STY VECTEUR-2 141 FINBCEL CEY #1 
63 STA HIMEM 142 BNE REFI 
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Un 

:Rod:fie 
:AnDers 

:En 
:Conseauence 


: SU 81 OSLion ‘+ 


: €>0 s1 option ‘0’ 


:0n ossse 
‘A un autre 
:Type de 
:Varisable 


:Un commence 
:Le balayage 
*A Partir 
‘be LOMEH 


:Ün veritie 

Que l'on 

:N'est sas serti 
:Dé la zone ces 
:Variabies 


;ÜUn regarde s1 
:Cette variable 
zlonvient 


:S1 tonction, 
:0n passe. 
:0On teste 

;:Sa valeur 
Pour 
L'option *C° 


:Ün envoie 

;3Son non 

:A l'affichage 
Avec son contenu 


:Ün vasse 
;4A la variable 
Suivante 


#* VARIABLES BIMENSIONNEES + 


voronnnnennnnnnnnanannnnnne 


las ASL 

144 85L 

145 asL 

146 ASL 

147 RET) @RA AMPERS 
is STA AMPERS 
149 ; 

150 NEWBCL JSK CHRGET 

151 JP TRATAMP 
152 ; 

153 FIN LDA ANPERS 
154 BNE TRAITN 
155 LUA #XxX12111111 
156 STA AMPERS 
157 JNP TRAITA 
15% ; 

1SS :; 

180 : 

iei NUN LES Z 

162 TYPE DFS : 

163 NUL HEX O0 

164 NBRDIAM DFS 1 

165 CAHUIX LrS 1 

168 LENVAR DFS à 

157 OPPUIN üeS 1 

16s OPMUL DFS 1 

16% AMPEKS ves 1 

170 V2 DFS 

171 vs LES 1 

1/2: 

174 MESSAGE HEX BU 

174 8SC “Tapleau “ 
175 hHEX Où 

176 MESSAGES ASC “* en * 

77 HEX O0 

178 MESSAGE1 ASC “ en ligne ‘ 
179 HiEX vu 

180 MESSAGE2 ASC ‘fonction 
181 EX UU 

182 TYPEO ASC * *xs * 

183 ; 

AA RM NL SEE ES RES me ne 
185 : nnnnnnnnnnnnnnenonsnnn 
186 : e 

187 :; * TRAITEMENT DES 
188 : . VANIASLES S1MPLES 
189 ; . 

130 H LÉRRLLLLLLLLLELILLERLLELLZ) 
191 : 

192 TRAITN LDA #4 

193 STA CHOÏiX 

194 ; 

195 AUTRE LeC Lauix 

196 BMi TABiLEAU 
197 LSR AMPERS 
158 BCC AUTRE 

199 : 

200 LUA LOMEM. 

201 STA ABVAR 

2062 LDUA LOMEM+1 
203 STA ADVAR°1 
204 :; 

205 &U CMP AFYTAH+I 
206 BCC TEST 

207? LBA AUVAK 

208 CMS ARYTAË 

2e3 8CS AUTRE 

210 : 

211 TEST JSK INPÜT 

212 LDA #2 

213 JS: POIN.A 
214 CPX CROIX 

2iS BNE SUITE 

216 : 

217 LRY CH@1x 

218 BES B]1 

219 JSR IFAFNUL 
220 L&X OPNEL 

221 BNE B1 

222 TAX 

223 BE@ SUITE 

224 : 

225 EI LDA #N@0n 

226 LDY /Nen 

227 JSH STHGUT 
228 JSR PRNVAR 
229 :; 

230 SUITE LA #5 

231 JSR POIN.A 
232 JAP GU 

233 ; 

234 :; 

235 ; . 

236 : . TRAITEMENT DES 
237 : 

238 ; L 

239 :; 

240 ; 
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241 
242 
243 
244 
2435 
246 
247 
248 
249 
250 
251 
292 
233 
254 
255 
256 
257 
258 
259 
266 
261 
262 
263 
264 
265 
266 
267 
268 
263 
270 
271 
272 
273 
274 
275 
276 
277 
278 
273 
280 
281 
282 
283 
284 
285 
286 
287 
288 
28% 
230 
291 
292 


294 
235 


297 
2968 
299 
300 


304 
30S 


306 
309 
319 
311 


313 
314 


TABLEAU 


CONT 


GO1 


83 


NONOE" 


Ba 


En 


arr 


#4 
CROIX 


{HGIX 
CONr 


ANXPERS 
AUTREZ 


ARYTAB 
ABVAR 
ARYTAH+I 
ABVAR:+1 


ALIVAR-1 
STREND -i 
TEST 
4abVaRr 
STHENG 
aUTREZ 


INPUT 
CROIX 
RZ 
SUITE2 


#4 
(ABVAR),Y 


NBRDIH 


#5 
POIN.A 


AL)VAre 
1NBLDIH 
ADvAK-+1 
IMBLDIP-1 


UbbULrH 
NONDP 


#MEDSDALGE 
/MESSAGE 
STHUUI 
&#NUN 
{NOM 
STKOU'?ï 
#0 
NBRDIM 


t4APLDIM).Y 
ADDIN,X 


CIMPLSIM).Y 
ADDIM,X 


Bs 

AFFD1N 
RHESSALGEU 
/MESSAGEO 
STHOUT 
AFPOINO 


NBiRDiM 
#0 


ABBIM,X 
54 


NBF:B1M 
POIN.A 


CHOIX 


#4 
NON 


LENVAR 


LFAFNUL 
OPNUL 
AFF 


#9 


#NOX 
/Nen 
STROUT 
AFFDIM 
PRNVAR 


LENVAR 
POIN.A 


zRetour au BASIC 


:Ün cemmence 
‘Le balayage 
A partir 
:De ARYTAB 


‘Un veritie 
iQue l’on 
:N'est Bas 
Sorti de 
La zone des 
: Tableaux 


Un teste ie 
:Tableaux peinte 
:S'11 ne cenvierit 
:Pas:SUITE2 


:Un stecice 

Le nbre de 
Dimensions 
Huit. par 2 


iUn stocke 
:L'’adresse 
t‘U”1Rpiantation 
:Bes dinensions 


tL'oPtion "P° 
‘4 
‘te arice... 


;-..-<Un 
:Affiche 


‘Les 
:Bimnensions 


:Maximums..- 
:..-Et le 
tlointeur 
s:hointeur 
$initiai. 


sKenmise 

:A zero 

:Les 
:ComDteurs 
s:Lve diaension 


:0n pointe 
;sur la variable 


:0On determine 
Le nbre 
:D'ocrets 
;Qu’elle 
:Uccupe er en 
:Le stocke 


:0n sointe sur 
:Le prochaine 


OR ERR 


31 


PRRETEESNIESSS— 
ARERERNE 






32 





364 
365 
366 
367 
363 
369 
370 
371 

372 
373 
374 
375 
376 
377 
378 
379 
380 
381 

382 
383 
384 
385 
386 
387 
388 
383 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 

402 
403 
404 
405 
406 
407 
408 
40% 
410 
ali 
4i2 
413 
414 
415 
416 
417 
418 
419 
420 
421 

422 
423 
424 
425 
426 
427 
428 
42S 
430 
431 
432 
433 
434 
435 
436 


LaX #0 
LDY NBRDIX 
DEY 
DEY 
ADD INX :0n 
CEC het 
LBA ABDIM,X :ÀA Jour 
ADC #1 Les 
STA ADDIM,X :Compteurs 
DEX :De dimensiens 
LBA ADD1i1,X Et... 
ADC #0 
STA ABBIM,X 
CHP CIMPLDIM),.Y 
BNE BCLE 
INX 
INY 
LDA ADDI1M,X 
CHP CIMPLD1M).Y :...0n 
BNE BCLE :Continue 
LDa #0 :S1 4e 
DEX :Tebleau 
STA APPIH,X ‘N'est pas 
INX :Termine... 
STA ABDIM,X 
INX 
DEY 
DEY 
DEY :...51 œeui 
BPL AbBD :0n pesese 
JAP GO] AU Suivant 
SUITE2 LV #2 :0n pointe 
CLC :Sur 
LDA <ABVAR),Y :Le tableaux 
ADC ADVAR Suivant 
TAX Ets 
INY 
LA {ADUVAR),Y 
ADC ADVAR-1 
STA ADVAK-+4 :..-0n 
STX APVAR t‘Retourne 
NE GO1 ;En GO1 
: nnnnnnnnnnnnanmannunnnnnnnnn 
3 . . 
: » DÉBUT DES SOUS-PROGKAMMES « 
; . . 
FH LRLLLRLLLLRRRRRRRLLELRLLLILLLIZZZ] 
; - INPUT determine la nature de - 
; — Le verisble pointee et range - 
$ = aon non. - 
INPUT LDX #1 ler ectet 
LDY #0 :Superieur 
LRA &{ADVAR).7Y :A 580 --> 
BNI ENTIER :Entier eu fenction. 
INX 
ENTIER STA NON 
INY :28ème ectet 
LDA (CAD\AR},Y sSuperieur 
BI CHAINE ;A SBO --> 
INX :Chaine ou entier 
CPX #2 
BNE CHAINE 
LDX #0 ;+ ONCTION 
CHAINE AND #%xO1111111 
BNE OK 
LDA #54A0 
OK STA NOM-1 :Stocke 
LDA TYPEO,X Le non 
STA TYPE ;Ët le type. 
RTS Puis retour 
:Resultat dans X: 
;l:Entier .2:Cheine ,3:Reel -0:Fonction 
; æ PRNVAR arfiche la veriable - 
; = Pointee at lee pointeurs - 
; 7: Si option ‘P’, puia - 
; & Fait un test-ciavier , = 
PRNVAR LBA #°°=" 
JSR COUT 
LDA CH@IX 
BES FONCTIU 
CRP #2 
BNE NONALPH 
LDY #1 ;On aftiche 
LDA CADVAR),Y ;La variable 





EEE 





437 
438 
439 
440 
ai 
442 
343 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
453 
453 
460 
461 
462 
463 
464 
46S 
466 
467 
468 
463 
470 
a71 
472 
473 
474 
475 
476 
477 
478 
a79 
480 
a81 
482 
483 
484 
485 
486 
487 
488 
489 
496 
491 
492 
493 
454 
495 
436 
437 
498 
499 
500 
501 
562 
503 
504 
S05 
506 
507 
S0B 
S09 
519 
511 
512 
513 
S14 
sis 
S18 
S17 
S18 
Sig 
520 
S21 
S22 
S23 
S24 
525 
526 
527 
S28 
S29 
S30 
S31 
532 
533 
S34 


Ba 


PRNFIN 


FONCTIO 


PROCRE 


VERIF 


TROUVE 


NONALPH 


REEL 


AFFAC 


AFPOINT 


AFPOINT 


AFPOIRO 


NONPOIN 


S1 


STA 
INY 
LDA 
STA 
LDY 
LDA 
JSR 
CPY 
BE@ 
LDA 
ORA 
INY 
NE 
LDA 
JSR 
JHP 


LDA 
LDY 
JSK 
LDA 
BEU 
LDY 
LOA 
STA 
TAX 
INY 
L3A 
STA 
LDA 
LOY 
JSH 
DEC 
LDY 
CEY 
LA 
BNE 
DEY 
BEY 
DEY 
DEY 
DEY 
INY 
LDA 
BNE 
INY 
INY 
INY 
LDA 
TAX 
INY 
LBA 
JSR 
JMP 


CnP 
BEG 


LSY 
LBA 
TAX 
INY 
LBA 
TAY 
TXA 
J5R 
JuP 


LDY 
LDAa 
JSR 
JSR 


LBA 
BEQ 
LDA 
SEC 
SBC 
BCS 
LBA 
TAX 
JSR 


LDA 
JSR 
LDX 
LDA 
JSR 


JSR 
LDA 
BPL 
LDX 
CMP 
BEQ 
LDA 
BPL 
LDX 


ve 


CABVAR),Y 
vi 

#0 

PURES 

COUT 

V3 

PRNFIN 
(VO),Y 
#&830 


1 

Ho 
COUT 
AFPOINT 


#HESSALEZ 
/NESSAGE2 
STROUT 
OPPOIN 
NONPOIN 
*O 
(ABVAR),Y 
vo 


(ABVAR),Y 
V1 
#MESSA(:E1 
/FESSAGEL 
STROUT 
Vi 
#2SS 


CVO},Y 
PROCHE 


tVO),Y 
VERIF 


(Ve), Y 


(VO), Y 
LINPTR 
AFPOINT 


#34 
REEL 


#0 
(ADVAR),Y 


CADVAR:3,Y 


GIVAYF 
AFFAC 


ADV'ARei 
aDvar 
HOVFM 
PRNE AC 


GPPOIN 
NONPOIPi 
#19 


ETAB 
AFPOIN1 
#2 


PRBL2 


#"s" 
COUT 
ADVAR 
ADVAR:+1 
PRNTAX 


CROUT 
KB0 
NOPAUSE 
KEYSTR 
#583 
RETBASIC 
KBD 

S1 
KEYSTR 


sAlpha. s1 
:Cela en 
:Est une 


:S1 option ‘p’. 
;0n 

;Cherche 

:La ligne 
:BASIC 

Ou 

Est 

:inplante 

‘Le 

sl'onerion. 


:Une 

:Foxs 
:Treuvee, 

On l’affiche 
Et 

:On envoie 

A l'attichage 
sbes 
:Pointeurs: 


;0n 
jAffiche 
:L'entier. 


:En envoie 
:Le reel 
:Uans FAC at 
:0n l'affiche 


On affiche 
Les pointaurs 
:S1 option ‘P’ 
;En respectant 
Le mise 

:En Page 


:0nr effectue 
Le test-clavier 


5Sa 

:C’est CTL-C 

:0n retourne 

;Au BASIC Per BELL 
Sinon on fait 
;:Üne pause 


Pom's n° 13 








535 CHP #583 574 LBA ABVAR-:i 
S36 BEQ RETBASIC 575 ADC #0 
537 N6PAUSE RTS 576 STA ABVAR-: 
538 RETBASIC PLA 577 RTS 
5393 PLA 578 : 
54e JHP BELL 57 3 = 
Sai S80 : ns - 
VAR fr RE SES er ave sem nmme S81 = IFAFNUL test la valeur = 
543 - = S82 = De 18 variable pointee = 
Saa ; + AFFBIM atfiche les dimensriens- 583 - En vue de l’obtien ’0° - 
S45 ; = Steckees en 5300... = S&4 - Et atecke la lengueur - 
Sae ; = = 585 = De la chaine si cela en - 
SA7 FH... rene een ANS ETS eEe S86 ; - Est une . - 
Sa8 AFFDInt LDY #e 587 - - 
549 LDA #°e S6g S Ses Sie Tan. 
SSO AGAIN JSR COÛT S89 : 
551 LDA ADDIMX,Y S36 1rFArNUL LDY #@ 
SS2 INY Ss1 LDA (CABVAR),Y 
S59 LBX ABDIM,Y S32 iNY 
SS4 STT V2 593 CPY CHOIX 
335 JSR LINPTR S94 BEGQ ENTIER1 
556 LDa &#*," 595 INY 
537 LDY v2 51e CPY CHOIX 
558 INY S37 BNE RETe 
559 CPY NBRDIN 5% LDX OPPOIN :S51 eptien ‘P?’ 
Se BNE AGAIN 299 BEQ RETZ :On limite le 
S61 LDA #2)" 600 CHE #13 :Lengueur de la 
sez JMP CSUT 661 BCC RET2 :Chaine Peur 
563 6062 LBA #12 :L'aftichage 
564 ee 603 RET2 STA V3 
565 = = c0a KTS 
See - Additienne l’accumuleteur = 605 ENTIER1 CLC 
567 Avec ABVAR . - 606 ADC <ADVAR).Y 
568 F 667 BCC RETO 
569 3 -----------------.. 608 TYA 
570 ; 603 RETO RTS 
571 POIN.A CLC 610 : 
S72 ABC ABVAR 611 END 
573 STA ADVAR 
93A8- 4C 72 93 AG O4 8D 2D 93 9S4D8- AS BD 20 ED FD AD 2D 93 
Programme PRNVAR (BIN 93B0O- CE 2D 93 DO 01 60 4E 31 94E6- FO 2A C9 O2 DO 67 AO Oï 
33B8- 93 90 FS AS 6B 8S FB AS 94E8- B1 FB 85 CE C8 B1 FB 85 
ARANT AR ACT ED PSN OS BARS MSsCe BC S3 ECUAS FOICS SE O0  SAEO CELAD OO AS AS 0 ED ED 
9298- 92 8D F6 03 8C F7 03 85 93C8- 06 AS FB CS 6D BO Et 20 94F8- CC 33 93 FO 07 Bi CE O9 
92A0- 73 84 74 85 6F 84 70 AS 93D0- BO 94 EC 2D 93 FO O% 4C 9500- 80 C8 DO F1 AS A2 20 EB 
J2A6 69 A4 GA 88 6B 84 6C 85  SSD8- 9C 94 AO O4 B1 FB OA 8D  9S08- FD 4C 6B 95 A9 4E AO 93 
92B0- 6D 84 6E 60 AO O0 8C 31 93E0- 2C 93 A9 05 20 CE 95 AS 9510- 20 3A DB AD 2F 93 FO 71 
32B8- 933 8C 30 93 8C 2F 933 A4  93E8- FB 85 F9 AS FC 85 FA AD 9518- AO 00 B1 FB 85 CE AA C8 
92C0-=. FO:  59::E0:3A FO 55 EO 28 93FO0- 2F 93 FO 33 A9 34 AO 93 9520- Bi FB 85 CF A9 43 AO 93 
92C8- DO O4 AO O1 DO 47 EO 23 93F8- 20 3A DB A9 28 AO 93 20 9528- 20 3A DB C6 CF AO FF 88 
92D0- DO OC CO O1 FO O4 A9 FO 9400- 3A DB A2 00 AC 2C 93 88 9530- Bi CE DO FB 88 88 88 88 
DADSeQp0"SS A0 O0 NO ST SO HAOSS ET Bi Fo D 00 0346 :CA 9538- 88 C8 B1 CE DO FB C8 Ca 
PAE0 "LÉO 20 DOS DES SA F0 40 Bi F9 JD 0010 ES EA 66 9540- C8 B1 CE AA C8 Bi CE 20 
92E8- 2C EO S0 DO OS 8D 2F 33  9418- 10 EE 20 AA 95 A9 3E AO 9548- 24 ED 4C 6B 95 C9 03 F0 
S2F0— EG, 23 É0. 32, F0 A1TL OA EO 9420- 93 20 3A DB 20 7D 9S AE 9550- 10 AO 00 B1 FB AA C8 B1 
92F8- 24 FO OC OA EO 2S FO 07  9428- 2C 93 A9 00 CA 9D 00 03  9558- FB A8 8A 20 F2 E2 4C 68 
9300- OA E@ 23 FO O2 AS OF CO 9430- DO FA AD 2C 93 20 CE 95 9560- 95 A4 FC A5 FB 20 F9 EA 
9308- O1 DO O4 OA OA OÀA OÀ OD 9438- AE 2D 93 E8 EO O4 DO O1 9568- 20 2E ED AD 2F 93 FO 1% 
9310- 31. 93 8D 31 93 20 BIT ‘00 9440- E8 8E 2E 93 20 DA 95 AE 9570- A9 13 38 ES 24 BO O2 A9 
9318-+ 4C BF 92 AD 31 93 DO 3B 9448- 30 93 DO 03 AA FO OD A9 9578- 02 AA 20 4A F9 A9 A4 20 
9320- AS FF 8D 31 93 4C SB 93 9450- 28 AO 93 20 3A DB 20 AA 9580- ED FD A6 FB AS FC 20 41 
9328- CF C4 CS OO B1 AC Ci A4 9458- 95 20 D8 94 AD 2E 93 20 9588- F9 20 8E FD AD O0 CO 10 
9330- C4 BO BO BO 8D D4 Ei E2 9460- CE 95 A2 O0 AC 2C 93 88 9590- 13 AE 10 CO C9 83 FO OD 
9338- EC ES Ei FS AO OO A$ E5 9468- 88 E8 18 BD 00 03 693 O1 9598- AD 00 CO 10 FB AE 10 C@ 
9340- EE AO OO AO ES EE AO EC 9470- 9D 00 03 CA BD 00 03 63 9SAO- C9 83 FO 01 60 68 68 aC 
ARRET ET PES ES ACT O8R ER EP 3478-00 900 050 ES BE CS SAS: S AFF AD ODA: AS 20 ED 
9350- EE E3 F4 E9 EF EE OO AO 9480- E8 C8 BD 00 0% Di F3 DO 95BO- FD B9 00 03 C8 BE 00 03 
9358- AS A4 AO A9 O4 8D 2D 93 9488- BB A9 00 CA 9D 00 03 Ea 9SBa- 8C 32 93 20 24 ED A9 AC 
9360- CE 2D 93 30 46 4E 31 93 9490- SD 00 03 E8 88 88 88 10 95C0- AC 32 93 Ca CC 2C 93 DO 
9368- 90 F6 AS 69 85 FB AS 6A 9498- DO 4T T3 93 AO O2 8 B1 95C8- ES A9 A9 4C ED FD 18 65 
9370- 85 FC CS 6C 90 06 AS FB 9448- FB 65 FB AA C8 B1 FB 685 9SDO- FB 85 FB AS FC 63 00 85 
9378- CS 6B BO E4 20 BO 934 A3 94A8- FC 85 FC 86 FB 4C C3 93 95)3- FC 60 AO 00 Bi FB C8 CC 
9580-0226 CE-95 EC 2D 93°D6 94BO- A2 01 AO OO B1 FB 30 O1 9SEO- 2D 93 FO 15 C8 CC 2D 93 
9388- 1A AC 2D 393 FO OB 20 DA 94B8- E8 8D 28 93 C8 B1 FB 30 9SE8- DO 15 AE 2F 93 FO 06 C9 
9390- 95 AE 30 93 DO 03 AA FO 94CO0- 07 E8 EO O2 DO O2 A2 O0 9SFO- OD 90 O2 A9 OC 8D 33 93 
9398- OA A9 28 AO 93 20 3A DB 94C8- 29 7F DO O2 AS AO 8D 29 95F8- 60 18 71 FB 90 O1 398 60 
93AO- 20 D8 94 A9 OS 20 CE 95 94D0- 93 BD 57 93 8D 2A 93 60 
Programme DEMO 1 15 LIST 15,80 7 
8 20 BIM AS{(1,2,3):VS = » 3: DEF FN B(X) 
S PRINT CHRS {4)'"BRUN PRNVAR(BIN)" = 1 / X 
10 TEXT : HOME : PRINT “ TEST DE L 30 FOR I = © TO 1 
A FONCTION PRNVAR" 46 FOR J = © TO 2 
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RD E RES CRISE 


EE 


33 





34 

















SO FOR K = O TO 3 A: SC 1%:0)="L MO" 506318 
6O AS(I,J,K) = STRS I) + VS + STRS {(J À S(0,2,0)2=*0,2,0" 50918 
) + VS + STRS (K) Al: SL:2,0)="1, 2,0 SO91E 

70 NEXT K,J,I A: SX0,0,19="0;:0,1" sOos2i 
80 GET RS: & @p A St1.6:1)-"%1,0,1* 50924 
A SXOS AIDE NOL TL, 1" $0927 

ANSCIST TEST TL 5092A 

6 : A-StÔ0,2,13="0,;2;1" 5092 
Exécution de DEMO 1 a à 2 
X =0 SO08E3 A S(0,0,2)="0,0,2" 50933 
1 =2 SO8EA A’Sti/052)=%100:2" 50936 
= so8rt A Ss(0,1,2=*0,1,2* 50939 
K =4 S08F8 AS CP 020 Me 12 S093C 
V S=",* s68D5 ATSCO,2:2)2="0%2;:;:2% S093F 
R S="* * SO8FF ASCT:2:P)201, 2,2" 50942 
B -fonction en liiqne 20 SsO8bC A S(0,0,3)2="0,0,3" 50945 
| A St1:0,392"1,0,3" 50948 

Tableau A S(2,3,4) en 509309 A St0,1,3)2="0,1,3" $094B 
A 5(0,0,0)2="0,0,0" S090F A S(1,1,8)="*1,1,3" S094E 
A $(1,0,0)2=*1,0,0" s0912 À 5(0,2,3)="0,2,3" $0951i 
ATSCOZL:0)="O07 1.0" 50915 AUISTE2:8)= 0012.53" 50954 





Documentation de tables de shapes 


Erick Ringot 


Ce programme permet de documen- 
ter des tables de formes, en préci- 
sant : 


- La longueur de la table. 

- Le nombre de formes. 

- Pour chaque forme, l'adresse rela- 
tive par rapport au début de la table. 


Îl permet également de représenter 
les formes à l'écran ou sur impri- 
mante. 


Principe du programme 


e La table est chargée en $4000 = 
16384, soit en page HGR2. 

e Le premier octet est N, nombre de 
formes composant la table. 

e Pour chaque forme, on lit 
l'adresse relative (groupe de deux 
octets consécutifs). 

e On vérifie que l'octet précédant 
cette adresse est bien nul (sinon, 
on n’a pas affaire à une table de 
formes). 

e Pour déterminer la longueur de la 
table, on parcourt les octets de la 
dernière forme, jusqu'à l'obtention 
d'un zéro terminant à la fois cette 
forme et la table. 


Variables 


À = 16384 (adresse de chargement) 

ADRESSE{(i) : tableau des adresses 
relatives des formes 

AHAL: octets fort et faible de 
l'adresse relative courante 





1771 





D : adresse de fin de table 

ER : code de l'erreur éventuelle 

IESIR%X : indicateurs d'usage de 
sous-programmes d'édition 

LF,L : indices de boucle 

LL : longueur de la table de formes 

LSB%.MSBS% : octets faible/fort de la 
longueur EE 

MESSAGES: message renseignant 
sur le déroulement du programme 

MX.MY : marges de la page haute 
résolution 

N : nombre de formes 

N$ : nom de la table 

OX), Of), i variant de 1 à 4. 
Quartets composant LL, en déci- 
mal, en hexa 

PX.PY : pas horizontal, Vertical dans 
la page HGR 

Q,P : nombre de lignes, de colonnes 


dans la page HGR 

X,Y : coordonnées de la forme cou- 
rante dans la page HGR 

ZE : octet normalement nul si le fi- 
chier N$ est bien une table 


Remarque : le  sous-programme 

d'impression est écrit pour l'impri- 

mante SEIKOSHA GP-100a. connec- 

tée sur le slot L La signification des 

codes de contrôle utilisés est la sui- 

vante : 

CHR${20) <CTRL-T> : Empéche 
l'écho à l'écran 

CHR$(14) <CTRL-N> : Ecriture 
double largeur 

CHR$(15) <CTRL-O> : Rétablit la 
simple largeur 

CHR$(17) <CTRL-Q> : Effectue la 
copie de la page haute résolution 

[| 











à trop uHliser un äpple 
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100 REM --------------------- 
110 REM DOCUMENTATION 
120 REM DES TABLES DE 
130 REM FORMES 
140 REM ----------—2------- 
150 REM LEE: DOC/SHAPE LES 
160 REM -1- INITIALISATION 
170 LOMEM: 24576: REM APRESHGR2 
180 ONERR GOTO 1150 
190 TEXT : HOME 
200 PRINT ‘NOM DE LA TABLE,...* 
210 INPUT “":NS: IF NS = ““ THEN END 
220 GOTO 1010 
230 REM -2- MESSAGE 
240 VTAB 20: INVERSE PRINT MESSAGES: FOR 
I = 1 TG 1000: NORMAL NEXT VTAB 
20: CALL - 868: RETURN 
2350 REM -3- VERIFICATION TTABLE 
260 À = 4 # 16 ” 3: POKE 232,0: POKE 233,64 
: REM ADRESSE TABLE 
270 MESSAGES = ‘CHARGEMENT DE “ + NS: GOSUB 
240 
280 PRINT CHRS (4)'BLOAD"NS"*,A"A 
2930 N - PEEK (A): REM NOMBRE DE FORMES 
300 D1M ADRESSE{N): REM TABLEAU DES ADRESS 
ES RELATIVES 
310 FOR I = 1 TO N 
320 AL = PEEK (A + 2 * 1): REM ADRESSE REL 
ATIVE OCTET FAIBLE 
330 AH = PEEK (A + 2 # L + 1): REM ADRESSE 
RELATIVE OCTET FORT 
340 ADRESSE(I)}) = AH # 256 + AL: IF A + ADRE 
SSE(I) > 2 ” 16 THEN 1210: REM ADRE 
SSE RELATIVE 
350 ZERO = O: IF I > 1 THEN ZERO = PEEK «(A 
+ ADRESSE(I) - 1): REM DERNIER OCT 
ET DE LA FORME PRECEDENTE 
360 IF ZERO < > O THEN GOTO 1210: REM CE 
N’EST PAS UNE TABLE DE FORMES t! 
370 NEXT I 
380 MESSAGES = NS + ‘“ EST UNE TABLE": G@SUB 
240 
390 RETURN 
400 REM -4- LONGUEUR DE LA TABLE 
410 D = A + ADRESSE(N): REM ADRESSE DERNIER 
E FORME 
420 IF PEEX (D) « > O THEN D = D + 1: GO 
TO 420: REM LA TABLE SE TERMINE PAR 
UN ZERO 
430 LL = D - A + 1: REM LGUEUR DECIMALE 
440 REM * CONVERSION HEXA #* 
450 MSB%x = LL / 256:LSB%x = LL - 256 * MSBXx 
460 OxX(1) = MSB%x / 16:0%x(2) = MSB%x - 16 # O 
%x(1):0X(3) = LSB%Xx / 16:D0Xx(4) = LSB% 
— 16 *# OXx(3): REM GŒGUARTETS COMPOSANT 
L'ADRESSE 
470 FOR I = 1 TS 4:0#(1) = STRS (O%X(1)) 
480 IF Ox(I) > 9 THEN OS(I) = CHRS (O%{1) 
* S5) 
490 NEXT 
500 RETURN 
510 REM -5- REPRESENTATION 
520 IF IR%* = 1 THEN POKE - 16297,0: POKE 
- 16302,0: POKE - 16304,0: GOTO ? 
10 
530 HGR : POKE - 16302,0 
540 IR%X = :i 
550 HCOLOR= 3: SCALE-= 1: ROT= © 
560 Q - INT ( S#R (ND): REM NB.LIGNES 
570 PY = INT (192 / Q): REM INTERVALLE EN 
Y 
580 MY = (192 - {Q - 1) # PY) / 2: REM MAKG 
E EN Ÿ 
590 P = INT (N / 6): IF N > P = @ THEN P = 
Porn’s n° 13 


Pl 

600 PX = INT {280 / P) 

610 MX = (280 - {P - 12 *# PX) / 2 

620 FOK L = 1 TO @Q 

630 FOR F = 1 TO P 

640 1 = F + (L - 1) *# P 

650 IF I > N THEN 710 

660 Y =: MY + CL - 1} »* PY: REM COTE 

670 X = MX + (F - 1} * PX: REM ABSCISSE 

680 DRAW I AT X,Y 

690 NEXT F 

700 NEXT L 

710 GET AS: TEXT 

720 RETURN 

730 REM -6- EDITION IMPRIMANTE 

740 REM SEIKOSHA GP100 SLOT 1 

750 PRINT CHRS (13) CHKS (4)'"PR#1"* 

760 PRINT CHRS (20) 

770 PRINT CHRS (14) TABC 20 - LEN (NS) y 
22NS CHRS (15): PRINT 

780 GOSUB 860 

7930 PRINT 

800 POKE - 12317,0 

810 PRINT CHRS (17) 

820 PRINT CHRS (4) '"PR#O" 

830 RETURN 

840 REM -7- TABLEAU D’ADRESSES 

850 TEXT : HOME :IE%x = 1 

860 PRINT “LONGUEUR, OCTETS" 

870 PRIAT “DECIMALE -> "LL 

880 PRINT “HEXADECIMALE -> $S"0$(1)0${2) 
0${3)0$(4) 

830 PRINT PRINT ‘NOMBRE DE FORMES ‘“N 

300 VTAB $# 

310 PRINT “FORME"; TAB( 15);'"ADRESSE" 

920 POKE 34,10: VTAB 11 

330 FOR Ii = 1 TO N 

940 PRINT: TABC/S = LEN'C-STRSAKIDHISI;T 
ABC 20 - LEN { STRS (CAD{I1)))2);ADRES 
SE CT 

950 IF IE%* = O THEN 970 

360 1F I = N OR £ = 10 # INT (I / 10) THE 
N GET AS: HOME 

970 NEXT 

380 IE%X = O: TEXT 

930 RETURN 

1000 REM -O- PROGRAMME PPAL 

1010 GOSUB 260 

1020 GOSUB 410 

1030 HOME 

1040 PRINT ‘“COMMANDES‘" : PRINT 

1050 PRINT “DESSIN DES FORMES...... 1% 

1060 PRINT “TABLE D’ADRESSES..... ss 2 

1070 PRINT ‘“IMPRESSION.........+r:°3" 

1080: "PRINT "AUTRE: TABLE :;53"25"sreust22"6 a" 

1090: "PRINT ETERMINE’ Ses ets sat ects a 

1100 GET AS:A%X = VAL (AS) 

1110 ON A%x GOSUB 520,850,750,1120,1130: GO 
TO 1030 

1120 RUN 

1130 TEXT : HOME : END 

1140 REM -8- TRAITEMENT ERREURS 

1150 ER = PEEK (222):LI = PEEK (218) + P 
EEK (219) *# 256 

1160 IF ER = 6 THEN MESSAGES = NS + * INCO 
NNU‘*: GOSUB 240: RUN 

1170: :TEXT 

1180 PRINT CHRS (13) CHRS (4) '"*PR#O" 

1190 HOME PRINT “ERREUR TYPE “ER: PRINT 
"LIGNE “LI: END 

1200 REM -9- FICHIER NON-TABLE 

1210 MESSAGES = NS + ‘“ N’EST PAS UNE TABLE" 


GOSUB 240: RUN 
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tome | 
par Serge et Gérard Lilio 
Voici un ensemble complet de pro: 
grarnmes de Comptabilité sur Apple Il 
adapé au Nouvwau Pian Comptable. 
peur petites entrepnses, professions 
libérales, arisans. eommerçants On 
ÿ trouve des Pregrammes permettant 
l'édivon des livre-Journal, grand-livre. 
balance, bilan, la possibilité d'éditer 
les livres de banque. de TVA de re 
certes, ainsi qu'un programme de dé 
tection des erreurs de frappe. Capacité 
du système : compte à 6 chiffres, 408 
lignes par flan 
Le livre : 184 pages - 120,00 FF 
La disquette : 195.00 FF 


tome 2 NOUVEAU 


par Serge et Gérard Lfiko 
Ce second tome contient trois pro- 
grammes compkmentaires des pro- 
grammes de comptabilité du tome 1 
visualstion graphique vidimensien- 
nelle des recettes et dépenses avec 
calcul des ratos - tableaux des armor- 
tissements. calcul d'impôts, ainsi 
qu'un programme de cemptabilté gé- 
nérale pour les utiüsateurs de disques 
8 pouæs. disques durs ou d'une seule 
unité 5 pouces l/4 
Le livre : 144 pages -110,00 FF 
La disquetée: 195.00 FF 











parJean-Michel.jégo 

Cet outrag présente l'analyse et la 
etvgammaton des problèmes de L 
paie et des charges salanales : fichiers 
de personnel, cakul des cotisations. 
élaboration d'un bulletin .de salaire 
avec congés payés En fin d'ouvrage 
on aboutit à la tenue d'un cahier des 
charges salsrales tel qu'il peut se pré 
senter dans une petite entrepnse. At 
tention : beaucoup de simplificañens 
ont été apporÉs par lappoit aux a 
tuations très diverses rencontrées par 
les profesionnals de le paie 

Le livre : 136 pages - 110,00 FF 
La disquette: 195,00FF 


por Bernard Sulmon 

Sont traités dans ce livre : l'analyse des 
coGts marginaux le cakul de seuils de 
rentabilité, le Birect Cos àne, le calcul 
des ratios ou du Fond de Roulement 
Minimum, là rentabilité des invesbs- 
sements et L gestion des socks. Chaque 
programme est proposé avec un 
exemple d'application 

Le livre : 156 pages - 100,00 FF 
La disquette : 195.00 FF 


U 
par Hervé Thiriez NOUVEA 


Multiplan est un progüel qui permet 
de gérer plusieurs tableaux simultané 
ment, cet Ouvrage sere pour Les pos 
sesseurs d'ordinateurs Appie Il Plus ou 
e un véritable quide d'utilisation de 
Multplan giâce à des exemples pro 
gresis et à de nombreux cas d'appl 
cation (gestion de portefeuilles. de 
copropriété. leuille de paie, impôts. 
tableaux de bord, eëc.} 
Le livre : 216 pages - 100.00 FF 
La disquette : 195,00 FF 


par Hervé Thmez 

Apres. une présentanon progressive du 
modéle Viscalk_ l'ouvrage étudie de 
nombreux cas d'applicaton: feuille 
d'impôt, gestion de copropriété, paye. 
facturation... permettant d'introduire 
les différentes instructions et astuces 
d'utilisation 

Le livre : 176 pages - 90,00 FF 
La disquette : 195,00 FF 


perJacques Beisgontier 

Pour apprendre progressiventent ls 
programmatien des applications utili 
sant les fichiers l'ouvrage commence 
par une présentation concise etillustrée 
des comr.:andes du Système d Exploi- 
tation Disque et des mstructions du 
Basic Applesoh Les instuctions des 
fichiers séquentiels et à aceès directsont 
ensuite décrites ainsi que leur utilisa- 
tion Des méthodes pratiques, souvent 
mal connues. menñtrent comment utili- 
ser au mieux des fi hiers à acvès direct 
accésindexé.listeinverse. Uneuingtane 
de programmes illustrent l'utilisation de 
ces techniques 

Le livre : 176 pages - 90.00 FF 
La disquette : 195,00 FF 


Modèles pratiques de décision 


par dean-Prerre Blanger 

Cet ouvrage vise l'automatisation du 
processus de la pise de décison. Les 
différentes techniques exposées sont 
complées d'un exeraple et d'un pro- 
gamme en Basic pour permettre au 
lecteur une rapide maïbise des modèles 
présentés et leur intégration à de nom 
beusss appbcabons {simulator geston. 
intelligence artificielle. …| 

Le livre : 144 pages - 90,00 FF 
Ladisquette : 195.00FF 


Modèles pratiques de décision 


par-lean-Piene Blanger 

Ce tome 2 de Modèles pratiques de 
décison offre un nouvel éventail de 
techniques visant l'automatisation du 
prucessis de la prise de dérision Cha- 
cun des nat medèles présentés donne 
leu à un bref ekposé. un exemple etun 
programmeen Basic standard. 
Lelivre: 176pages - 90.00FF 
La disquette :1195,00 FF 


VLOBRAMMES 


Modèles d'expression graphique 
par Jean-Pierre Blonger 

Cet ouvrage expose un ensemble de 
techniques tisantlà mise en œuvre des 
possibilités graphiques des ordinateurs 
individuels D permet au débutant 
cemme à l'amateur chevronné d'abor- 
der la résoluton de problèmes de plus 
en plus complexes ltracés d'ellipse. 
rataüon de polygone. hachurage de 
surface...). Les modèles d'expression 
graphique. écnts en Basic Applesoit 
sont abondamment commentés et faci- 
lement adaptables à d'autres ordma- 
teurs individuels 


Le livre: 232 pages - 130,00 FF 
La disquette: 195,00 FF 









Mathématiques et statistiques 
parHervéHaut 

Cet ouvrage est un recueil de 16 logiciels 
de base {niveau supérieur] tanten ma 
thémanquesqu enstañstiques. Chaque 
problème traité comporte une intro- 
duction numérique. un exposé de la 
technique de programmation utilisée. 
un organigramme détaillé et un pro- 
gramme complet en Basic suivi d'un 
exemple d'unlisañon 

Le livre : 272 pages - 100,00 FF 
La disquette : 195,00 FF 


$ 
Lrruve maut ! 












Bibliothèque scientifique 

en Pascal 

par Hervé Hout 

Les procédures proposées dans cel 
ouvrage sont conçues pour être implan 

tées dans le System Library du langage 

L'utilisateur dispesera d'une biblio 

thèque ennchie, permettant une réso- 
lution aisée er perlormante d'un grand 
nembre de problèmes mathématiques 
et staûsbques souvent rencontrés dans 
les programmes scientifiques 

Le livre: 152 pages - 90.,00FF 

! La disquette : 195.00FF 


Méthodes de calcu numérique 
par Claude Nowakowski 

Tome 1 : Equations non linéaires. poly- 
nêmes. calcul matnciel. wierpolstion 
intégration et équanons chfférentelles, 
pour chaque problème les différentes 
méthodes de calcul numénque sont 
étudiées. Ces algorithmes sont illustrés 
par un organigramme. un programme 
en Basic et un exemple d'exécution 
Le Tome? donne: desalgenthmesplus 
élaborés ou pius subtils et aborde de 
nouveaux thémes  approxtmaton des 
fonctions, problèmesaux limites- équa 
tions aux dénvées partielles 

Chaque algonthme est programmé en 
Basiceten Pascal 

Tome 1 : 144 pages - 90,00 FF 
Tome 2 : 184 pages - 110,00 FF 
La disquette pour tes 2 tomes : 
U95,00FF 


Le Basic et l'école 

par Jacques Gouet 

Le livre décrit un ensemble de pro- 
grammes en Basic, destinés aux pro- 
fesseurs. aux parents et aux élèves 
Grammatre, mathématiques. conjugar- 
sons française. anglaise. sont aurant 
d'exemples d'application qui font de 
cet ouvrage un véritable outi d'enset- 
gnement et d'Hiaton, à l'école ou à 
la maison 

Le livre : 192 pages -120,00 FF 
La disquett e: 195,00 FF 


Le Basic et l'école 1 

por Jacques Gouet 

Pourvu que vous possédiez un lecteur 
de disquette. vous allez pouvoir créer 
et gérer vous-même vos Questionnair es 
à Choix Multiples et vos exercices, sut- 
vrelesnotesobtenues. etconcevoir des 
camets de vocabulaire étranger. à Fécole 
comme à la maison 

Le livre : 160 pages- 110,00 FF 
La disquette :195,00FF 
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Il était temps qu'un capitaliste 
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fasse une révolution. 





N'apprenez plus à devenir une machine, Apple a inventé Macintosh. œ 
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Pom'’s a vu LIGHT 1 


Alexandre Duback 


LIGHT 1 est un ensemble de logi- 
ciels d'aide à la programmation dif- 
fusé par la société Les Années Nou- 
velles. Si certains de ses modules 
sont à la portée de tous, ou presque 
(catalogue général, recherche de 
Tokens..), l'exploitation des métho- 
des de ‘pistage” de programmes 
qu'il propose sera vraisemblablement 
réservée aux utilisateurs ‘‘profession- 
nels” des Apple Ii et //e. 


Le produit se présente sous la forme 
d’une disquette ’logiciels”, accompa- 
gnée d’une documentation imprimée. 
L'apprentissage de son fonctionne- 
ment peut être complété par des 
stages de deux jours organisés par 
Les Années Nouvelles. Nous présen- 
terons ici rapidement les différentes 
fonctions offertes, en insistant sur 
celles qui nous paraissent les plus 
utiles ou les plus originales. 


Accès direct aux disquettes 


Le module baptisé ZAPPLE 7 per- 
met toutes les opérations de manipu- 
lation de disquettes (formatées en 
DOS 3.3) au niveau du secteur : 


e Lecture et affichage du contenu 
d’un secteur octet par octet, avec 
possibilité de modification et de 
ré-écriture. 

e Analyse et manipulation du direc- 
toy. 

e Etat d'occupation d'une disquette. 
e Recherche de fichiers et récupéra- 
tion possible de fichiers détruits. 

e Identification, nettoyage et trans- 
feit de secteurs (d’un disque à un 
autre). 

e Recherche de suites d'octets ou de 
caractères sur la disquette, pour 
savoir, par exemple, dans quels 
octets de quel secteur a été enre- 
gistrée la séquence DUPONT”. 

© Impression de suites de secteurs, 
ainsi que des différents secteurs 
occupés par un fichier donné. 


Ce programme peut donc aider à la 
récupération de disquettes endom- 
magées sur le plan logique, mais 
aussi à la mise au point de logiciels 
dont les opérations de lecture et écti- 
ture sur disquette ne produisent pas 
les résultats espérés. 


Autres utilitaires ponctuels” 


Nous regroupons ici différents pro- 
grammes assurant chacun un traite- 
ment précis et indépendant des 
autres. Les traitement concemés 
sont : 


e Constitution et exploitation d’un 


catalogue général de disquettes 
(liste alphabétique des fichiers, re- 


cherche d’un fichier donné, liste 
des fichiers dont le nom 
commence par une séquence don- 
née, tri selon le type de fichiers, 
liste des noms affectés aux dis- 
quettes enregistrées dans le catalo- 
que, le tout à l'écran ou sur impri- 
mante). 

e Affichage des informations de 
chargement de fichiers binaires 
(adresse de départ et longueur). 

e Recherche de Tokens, de suites 
de caractères (V compris caractères 
de contrôle) et de variables dans 
un programme en Applesoft. 

e Recherche de séquences d'octets 
en mémoire centrale. 

e impression désassemblée de codes 
hexadécimaux et recherche d’oc- 
tet inutilisés dans une portion de 
mémoire. 

e Comparaison de deux séquences 
d'octets en mémoire ou sur dis- 
quette. 


Le pistage de programmes 


Ce traitement très complet {et relati- 
vement complexe) peut être appliqué 
à des programmes en Applesoft ou 
en langage machine. I] permet très 
exactement de suivre pas à pas les 
étapes de déroulement d'un pro- 
gramme et de savoir quelles adresses 
et quelles routines du système sont 
utilisées, de suivre l'appel et l'exécu- 
tion des différentes séquences du 
programme lui-même, de connaître 
le contenu des registres après chaque 
instruction. 


Un premier module, baptisé Aïiane, 
construit sur disquette une table des 
adresses d'instructions par lesquelles 
passe le programme étudié. Il est 
possible de définir ia zone dont on 
veut ainsi pister le déroulement : fe- 
nêtre d’une adresse à une autre, mé- 
morisation uniquement à partir du 
passage à une adresse précise ou à 
un numéro d'instruction désigné - les 
instructions sont numérotées par le 
logiciel dans l’ordre chronologique 
d'apparition au cours de l’exécu- 
tion On peut de même ”’masquer” 
une séquence d'adresses pour le pis- 
tage, afin de ne pas encombrer la 
table avec le compte-rendu du dé- 
roulement de routines non significati- 
ves (attente au clavier, boucle de 
délai...). 


Des logiciels annexes perrnettent en- 
suite d'exploiter cette table pour éta- 
blir une première radiographie” du 
programme étudié : impression de la 
succession des adresses d'instructions 
empruntées, tableau des adresses 


distinctes et de leur nombre d’occur- 
rences (combien de fois passe-t-on 
par les routines CHRGET. NEWSTT, 
CHKNUM...), recherche des numé- 
ros d'instructions oià apparaît teile ou 
telle adresse remarquable. Pour fa- 
ciliter l'interprétaton de ces résultats, 
vous pouvez constituer des tables 
d'adresses remarquables en fonction 
des opérations sur lesquelles se cen- 
tre votre intérêt. Une table de cette 
nature permet d’affecter un nom à 
chaque adresse d'instruction que 
vous jugez particulièrement significa- 
tive, par exemple, CHRGET pour 
l'adresse $B1, NEWSTT pour 
l'adresse $D7D2.. 


Cette première exploitation des résul- 

tats d'Ariane vous quidera ensuite 

dans l’utilisation du module Chalut, 

qui réalise le pisinge pas à pas pro- 

prement dit. Sur les séquences criti- 

ques d'exécution précédemment iso- 

lées, Chalut vous donnera un 

compte-rendu complet du déroule- 

ment du programme : 

e Numéro d’'inst'uction 

e Contenu des registres À, X, Yet S 
en hexa. 

e Valeur des bits du registre d'état 
du processeur. 

®e Adresse de l'instruction et libellé 
2 hexadécimal et en désassem- 
lé. 

e Contenu d'adresses remarquables 
désignées. 


L'ensemble de ces modules produit 
donc finalement un rapport très dé- 
taillé sur le déroulement de vos pro- 
grammes. Ceci vise tout d’abord à 
isoler les causes d’un mauvais fonc- 
tionnement, mais peut également 
servir à connaître plus en détail les 
routines du moniteur de l'Apple ou 
de l'Applesoft, puisqu'il est parfaite- 
ment réalisable d’en pister le dérou- 
lement au moven de petits program- 
mes qui les utilisent (un petit 
programme de calcul en Applesoft, 
par exemple, pour examiner à la 
loupe le fonctionnement des routines 
“virgule flottante”, isoler les causes 
du ”bug” signalé dans Pom's 11 et 
le résoudre, comme l’ont fait les au- 
teurs du logiciel). 

L'emploi d'un tel système ne semble 
toutefois se justifier que pour des 
programmes complexes, dont le pis- 
tage manuel représenterait une perte 
de temps prohibitive, ou pour quel- 
qu'un éprouvant le besoin de rentrer 
très précisément dans l'étude du 
fonctionnement de l’Apple. El sera 
donc vraisemblablement réservé à 
des usages professionnels, 


Pom's n° 13 


L'ensemble du logiciel accompagné 
de sa documentation est proposé au 
prix de 1950 F TTC. Les journées de 
formation, quant à elles. reviennent à 
1000 F TTC par jour, elles peuvent 
porter à la fois sur l’apprentissage de 
LIGHT 1 lui-même et sur la présen- 
tation de la structure et du fonction- 
nement soft” de l'Apple, dont une 
connaissance minimale est de toute 
façon requise pour tirer un meilleur 
parti du produit. 


Le prix, relativement élevé malgré 
tout, peut trouver sa justification dans 
l'intégration des routines utiles à 
l'analyse de programmes que pro- 
pose LIGHT 1 {vous disposez en un 
seul système d'outils pour la manipu- 
lation des disquettes, la recherche de 
Tokens, la comparaison de séquence 
d'octets..) En outre, la méthode de 
pistage” conduit effectivement à 
une résolution très fine de difficultés 
dont l'étude par d'autres moyens 


pourrait constituer une tâche particu- 
lièrement fastidieuse, sinon tout à fait 
décourageante. 

Quant à l'apprentissage de l’utilisa- 
tion du produit, la documentation 
fournie peut y suffire. Le recours aux 
journées de formation dépend finale- 
ment du temps que vous entendez y 
consacrer et de votre niveau de 
connaissances en matière d'Apple 








Un logiciel pas comme 
les autres 


Thinktank est très large d'idées, ce 
qui est bien la moindre des choses 
pour un logiciel de traitement des 
idées”. Pas besoin de classement 
préalable. inutile de structurer ce 
qu'on veut lui confier (enfin pre- 
que...}. N'exagérons rien, il ne mettra 
quand même pas d'ordre dans un 
chaos originel. 


Mais il est plein de ressources: on 
peut développer ici condenser là, 
changer la hiérarchie entre les objets 
traités, créer des niveaux supplémen- 
taires, trier alphabétiquement une 
table des matières, rechercher un 
quelconque vocable dans tout ou 
partie d'un ensemble, même particu- 
lièrement touffu {ce n'est pas tou- 
jours très rapide), provoquer des édi- 
tions ou des duplications sélectives, 
fusionner, communiquer avec des fi- 
chiers tiers. 


Mais attention ! Si Thinktank (réser- 
voir d'idées) permet tout cela, ne 
vous méprenez pas pour autant. Il 
n'est pas question ici d'intelligence 
artificielle, de démarche inductive ou 
déductive. Comme dans la célèbre 
auberge espagnole, on y trouve ce 
qu'on y apporte. Mais il est sûrement 
plus facile de l'y retrouver que dans 
ladite auberge. 


Ce n'est pas non plus un gestion- 
naïre de fichiers au sens classique du 
terme. Pas de notions d’enregistre- 
ments et de champs ou d'indexation. 
Et pourtant, il permet de stocker des 
informations et de les retrouver. Ce 
n'est pas davantage un traitement de 
texte. Cependant, il possède un édi- 
teur et un générateur de formats 
d'édition. Au fond, c'est peut-être 
encore son nom de ‘réservoir 
d'idées” qui le définit le mieux. 


La documentation comporte un ”tu- 
totial” qui explique sur un exemple 
les grands principes de fonctionne- 
ment. Un manuel de référence plus 
complet lui fait suite. 


Pom's n° 13 


| Thinktank à l’essai 


Sur le plan de la commodité d’em- 
ploi, un guide par menus enchaînés 
rend les principales options aisément 
accessibles. Si vous avez de la mé- 
moire, vous pouvez accélérer le pro- 
cessus en tapant, à tout stade ou 
presque, la lettre initiale de la 
commande que vous voulez mettre 
en oeuvre. Et, si vous avez tout ou- 
blié (ou presque), une commande 
unique ’/” vous permet, de tout 
point du programme, de passer au 
menu (de même que ta touche ESC 
vous fait sortir de l'option en cours). 


On pourra faire deux critiques au ni- 
veau de la commodité d'emploi. La 
première tient justement à cette 
commande ESC : elle fait générale- 
ment sortir d’une option en aban- 
donnant ce qui n'a pas été rendu dé- 
finitif. En revanche. quand vous avez 
fini de rédiger un “paragraphe”, ESC 
est la sortie normale qui sauvegarde 
le travail (alors que RETURN ne 
remplit que la fonction de saut de 
ligne). La seconde concerne l'éditeur, 
peu classique (et en fait peu puis- 
sant) Par exemple, la flèche arrière 
efface le caractère qui précède le cur- 
seur, alors que la touche DEL efface 
le caractère sous le curseur. 


Un exemple d'utilisation 


Ma femme et moi manquons quel- 
que peu de mémoire (en tous cas 
pour les besoins de la cause. mais 
cela doit être également un peu vrai 
dans la vie). Aussi avons-nous confié 
à Thinktank tout un lot d'idées qui 
nous sont passées par la tête, afin de 
disposer d'un pense-bête permanent 
pour les deux mois de vacances que 
nous comptons royalement nous of- 
fir. 

Grande bridgeuse devant l'étemel, 
ma femme a d'abord ouvert une ru- 
brique BRIDGE, sans trop savoir ce 
qu’elle allait y mettre. Un peu plus 
tard, elle a ‘’fourré” dans cette rubri- 
que les noms des personnes avec 
lesquelles elle est accoutumée à brid- 
ger pendant les vacances, avec quel- 
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ques indications générales pour cha- 
cune d'entre elles. 


Elle a aussi mis ”’dans le même pa- 
nier” quelques idées sur les compar- 
timents du jeu où elle a envie de se 
perfectionner. Ce qui la conduit à 
reprendre quelques noms de joueurs 
pouvant l'y aider. Pourquoi pas ? 
Thinktank s'y retrouvera toujours. 
même si une information unique fi- 
gure à plusieurs endroits. 


De mon côté, je me suis penché sur 
le problème des gens qui viendraient 
nous voir. Entre-temps d’ailleurs, j'ai 
pensé qu'il était peut-être préférable 
de mettre un peu à part la famille 
(elle comporte parfois des gens sus- 
ceptibles...). Un petit changement 
dans l'ordre des rubriques v pour- 
voit. J'ai en outre noté au passage 
une interférence avec le bridge de 
Madame : il y a des parent et amis 
qu sont aussi bridgeurs! Certains 
avaient été pris en compte dans la 
rubrique Bridge, d'autres non Ma 
femme a décidé de n’y garder que 
les bridgeurs habituels De toute 
façon, Thinktank les retrouvera tous, 
si on le lui demande gentiment. 
Notez qu'il eût été possible de dupli- 
quer dans la rubrique bridge les don- 
nées concernant le bridge dans la fa- 
mille ou chez les amis. 


Vous direz peut-être que. même si 
Thinktank y met de l’ordre, l'écran 
contenant des données aussi dispara- 
tes doit s'avérer difficile à lire. Une 
des fonctionnalités les plus originales 
du logiciel est ‘étendre / restreindre”, 
qui permet, en se plaçant à n'im- 
porte quel niveau, d'étendre tout ce 
qui conceme le niveau N—1, qui ap- 
paraît alors sur l'écran, ou au 
contraire de le restreindre, ce qui le 
fait disparaître de l'écran {mars évi- 
demment pas de la mémoire). Si 
vous voulez étendre ou restreindre 
sur plusieurs niveaux à la fois, il suffit 
de faire précéder la commande du 
nombre de niveaux voulus. La 
commande elle-même est bien choi- 


» 21" 


sie au plan mnémotechnique : ”< 








41 


sw 


APT 


OR 
42 


pour étendre ou élargir, >” pour 
restreindre ou réduire. 


S . ! celui-ci. 
Quant à la commande d'impression, 


elle lance sur imprimante, comme 
titre, la rubrique sur laquelle se 
trouve le curseur, et comme texte, 
tout ce qui est d’un niveau inférieur 
dans cette rubrique. Si vous vous 
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Pom's n° 13 


L'instruction PEEK permet la saisie 
du contenu d'une adresse en mé- 
moire à partir d'un programme 
Basic. Définissons la fonction : 

DEF FN PE(X) = PEEK({X) + 256 * 
PEEK(X+1) 

qui permet la saisie d'un nombre su- 
périeur à 255. Cette instruction devra 
figurer dans votre programme Basic. 


Cette liste de PEEKS vous permettra 
d'une part de mieux comprendre 
certains programmes Applesoft, d’au- 
tre part de simplifier l'écriture de vos 
propres programmes. 
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e X = FN PE{11): adresse du sous- 
programme appelé par USR. 


e X = FN PE(26). valeur du poin- 
teur dans la table de formes. 
Après un DRAW où un XDRAW. 
X = adresse de la prochaine 
forme de la table. 

e X = PEEK(32) : marge gauche de 

la fenêtre de texte 

X = PEEK(33) : largeur de la fe- 

nêtre de texte 

e X = PEEK(34) : haut de la fenêtre 


de texte 
e X = PEEK(35) : bas de la fenêtre 
de texte 


e X = PEEK(36): position hotrizon- 
tale du curseur (0 <= X <= 39). 

e Y - PEEK(37). position verticale 
du curseur (0<= Y <= 23). 


Essayez par exemple l'instruction sui- 
vante : 

HOME : SPEED=-100: VTAB 10: 
FOR X=0 TO 100: CALL-868 : 
POKE 37.PEEK(37)-1: POKE 36, 
PEEK(36) + 10 — LEN(STRS$(X)) : 
PRINT X : NEXT 

ou encore : 

IF PEEK(37) = 23 THEN PRINT 
"Taper une touche pour continuer”;: 
GET R$ .. qui permet l'arrêt mo- 
mentané de l'affichage lorsque 
l'écran est rempli. 


e X = FN PE(38) : adresse mémoire 
du début {colonne 0) de la ligne 
courante en mode GR. 

e X = FN PE(40) : adresse mémoire 
de la colonne O de la ligne cou- 
rante en mode TEXT. L'instruc- 
tion ci-dessous permet d’afficher 
les adresses de début des lignes 1 
à 22 de la page TEXT : 

HOME : FOR I1=1 TO 22 : PRINT 
1 "FN PE(40) : NEXT I 


e X = INT(PEEK(48)/17) : code de 
la couleur GR (basse résolution) : 
noir = 0, magenta = 1. bleu 
foncé = 2, pourpre = 3, vert 
foncé = 4, gris = 5, bleu = 6, 
bleu clair = 7. brun = 8, orange 
= 9, gris = 10, rose = 11, vert = 
12, jaune = 13, transparent = 14, 
blanc = 15. 


X = PEEK(50) : indique le mode 
d'affichage texte en cours : 255 = 
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NORMAL, 63 = INVERSE, 127 
= FLASH. 


X = FN PE(54): CSWCSWH: 
adresse de la routine de sortie de 
caractères. 

Sans DOS : X = 65008 ($FDF0O) 
DOS standard en MEV : X = 40637 
DOS relogé en carte SATURN : X = 
48961. 


e X = FN PE(56): KSW.KSWH : 
adresse de la routine d'entrée de 
caractères. 

Sans DOS : X = 64795 

DOS standard en MEV : X = 40577 

DOS relogé en carte SATURN : X = 

48966. 


[ peut être intéressant de déconnec- 
ter le DOS pendant une exécution 
de programme et de le reconnecter 
plus tard. Ceci peut se faire par la 
suite d'instructions suivante : 

EOR «X- >=1 0 TO ::3: PDK): = 
PEEK(54 + X): NEXT: POKE 
54,240: POKE 55,253: POKE 56,27: 
POKE 57,253: REM DECONNECTE 
LE DOS 

FOR X = 0 TO 3 POKE 54 + X, 
PD(X): NEXT: REM RECONNECTE 
LE DOS 


e X = PEEK(78): nombre aléatoire 
entre O et 255. 

e X = PEEK(79) : nombre aléatoire 
entre 0 et 255. 

e X = FN PE(78) : nombre aléatoire 
entre O et 65365. 


e X — FN PE(103): TXTTAB: 
adresse de début du programme 
Applesoft (normalement $801). 

IF FN PE(03) <> AD OR 

PEEK(AD — 1) <> O0 THEN POKE 

104,AD/256 : POKE 103,AD — 

256*PEEK(104) : POKE AD-1,0: 

PRINT CHRS$(4) “BRUN  pro- 

gramme” 

permet à un programme Applesoft 

de se reloger lui-même plus haut en 

mémoire à partir de l'adresse AD. 


e X = FN PE(105): LOMEM: 
adresse de début de la zone des 
variables. 

e X = FN PE{107): ARYTAB: 


adresse de début de la zone des 
tableaux. 

e X = FN PE(107) — FN PE(105): 
longueur de la zone des variables 
simples. 

EN PE(109): 


p 
eo X = STREND : 


adresse de fin de la zone des ta- | 


bleaux. 
e X = FN PE{(109) — FN PE({107): 
longueur de la zone des tableaux. 
e X = FN PE(1i1): FRETOP: 
adresse de fin de la zone libre. De 
la fin de la mémoire jusqu'ici sont 
stockées les chaînes de caractères. 


PEEKSs à gogo 
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X = FN PE(111) — EN PE‘109): 
nombre d'octek de MEV libres. 


e X = FN PE(115) : HIMEM: fin de 
la zone mémoire utilisable. 
Adresse du début de stockage des 
chaînes de caractères. 


e X = FN PE(117): CURLIN: 
contient le numéro de la ligne de 
programme en cours d'exécution. 


e X = FN PE(119): OLDLIN: 
contient le numéro de la dernière 
ligne de programme exécutée. 


e X = FN PE(121): OLDTXTPR: 
adresse RAM de l'instruction à 
exécuter — 1. 


Pour supprimer la ligne nnnn et les 
lignes précédentes dans un pro- 
gramme Applesoft, faire : 

nnnn X = FN PE(121) + 1: POKE 
103,PEEK({X}: POKE 104. PEEK(X+1). 
Cela permet par exemple d'augmen- 
ter la vitesse d'exécution du pro- 
gramme, en déplaçant le “haut” du 
programme. Pour revenir aux poin- 
teurs originaux, faire POKE 103,1 : 
POKE 104,8. 


e X = FN PE{123) : numéro de la 
ligne DATA à lire ou en cours de 
lecture. 


e X = FN PE(125): adresse mé- 
moire du premier octet de la pro- 
chaine donnée à lire en DATA. 

e Xÿ = CHR$ (PEEK(129)) + 
CHR$ (PEEK(130)): nom de la 
dernière variable utilisée. Son 
adresse se trouve en 131 et 132. 


e X = FN PE(131): VARPNT: 
adresse de la dernière variable uti- 
lisée (ou du descripteur de cette 
variable}. Le nom de la variable se 
trouve aux adresses 129 et 130. 

L'adresse de la variable X pourra 

être obtenue par X=0: PRINT FN 

PE(131). 


e X = FN PE(175): PRGEND: 
adresse de la fin du programme 
Applesotft. 

e X = FN PE(175) — EN PE(103): 
longueur du programme Apple- 
soft. 

Pour sauver un programme Apple- 

soft sous forme binaire, faire : 

AF = FN PE(75): RX = AF -— 

2048 : BSAVE nom du programme, 

A$800LXX. Le programme ainsi 

sauvé ne pourra plus être exécuté 

par un RUN ni par un BRUN. Pour 
lancer l'exécution, faire un BLOAD 
pu's un RUN. 


e X — FN PE(218): ERRLIN: 


contient le numéro de ligne de 
programme où une erreur s'est 
produite. 

e X = FN PE(220) : valeur du poin- 
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teur dans l'instruction où s’est pro- 
duite l'erreur. 
e X = PEEK(222): X sera égal au 
code d’erreur (Applesoft ou DOS). 
X = 0: NEXT WITHOUT FOR 


OR 
1: LANGUAGE NOT AVAILA- 


L 
: RANGE ERROR 
: -idem- 
: WRITE PROTECTED 
: END OF DATA 
: FILE NOT FOUND 
: VOLUME MISMATCH 
: JO ERROR 
DISK FULL 
: FILE LOCKED 
: SYNTAX ERROR (DOS) 
: NO BUFFERS AVAILABLE 
: FILE TYPE MISMATCH 
: PROGRAM TOO LARGE 
: NOT DIRECT COMMAND 
: SYNTAX ERROR 
: RETURN WITHOUT 
OSUB ERROR 
X = 42 : OUT OF DATA ERROR 
X = Se : ILLEGAL QUANTITY 


RROR 
X = 66 : OVERFLOW ERROR 
X = 77: OUT OF MEMORY 
ERROR 
X = 90 : UNDEF'D STATEMENT 
X = 107 : BAD SUBSCRIPT 


ERROR 
X = 120 : REDIM'D ARRAY 
ERROR 
X = 133 : DIVISION BY ZERO 
X = 149 : ILLEGAL DIRECT 


ERROR 

X = 163: TYPE MISMATCH 
ERROR 

X = 176: STRING TOO LONG 


ERROR 
X = 191 : FORMULA TOO 
COMPLEX 
X = 210 : CANT CONTINUE 
X = 224 : UNDEFD FUNCTION 
X = 255 : BREAK 


Exemple de sous-programme de trai- 
tement d'erreurs : 

10 POKE 758,104 : POKE 759,168 : 
POKE 760,104: POKE 761,166: 
PORE 762,223: PORE 763,154. 
POKE 764,72: PORE 765,152: 
PORE 766,72 : POKE 767,96 : REM 
ROUTINE DE TRAÏITEMENT D'ER- 
REURS (MANUEL APPLESOFT) 

20 ONERR GOTO 30000 

30000 CALL 758: ER = 
PEERK(222) : LN = FN PE(218) 
30010 PRINT'ERREUR NUMERO 
?ER’” À LA LIGNE ”LN 

30030 IF ER<1 or ER>15 THEN 


D 
M, 


0 O0 JO O1, ©) N) 
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Nes D st bd 
DOUBS WwNEO.. 
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PRINT ‘programme _ interrompu” : 
END 

30040 .…. 

30050 IF ER = 4 THEN PRINT 


"Disquette protégée en écriture - 
changer de disquette ” ;: GET R$: 
PRINT CHR$(13) + CHRS$(4) ’com- 
mande DOS” : GOTO 30100 


309060 …. 
30070 IF ER = 9 THEN PRINT 


Pr lil 
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"Disquette remplie - changer de dis- 

quette”;: GET R$ : … GOTO 30100 

30080 .…. 

30100 RESUME : REM retour à 

l'instruction où l'erreur a eu lieu 

e X = PEEK(223) : valeur du poin- 
teur de pile avant l'erreur. 

e X = FN PE(224): coordonnée 
horizontale du curseur HGR 

e X = PEEK(226): position verti- 
cale du curseur HGR. 


e X = PEEK(228): code couleur 
HGR : noir = O, veit = 42, violet 
= 85, blanc = 127, noir = 128, 
orange = 170, bleu = 213, blanc 
= 255, 


e X = PEEK(230) : code de la der- 
nière page HGR appelée. Pour la 
pese X = 32. Pour la page 2, 

= 64, 


Pour que les instructions HGR agis- 
sent sur la page haute résolution non 
affichée, faire POKE 230,96 — 
PEEK(230). 


e X — PEEK(231): valeur de 
SCALE (entre 1 et 255). 


e X — FN PE(232): adresse de 
début de la table de fonnes. 
Exemple d'utilisation : IF FN PE(232) 
<> XXXXX THEN PRINT CHR$(4) 
"BLOAD Table de formes, AXXXXX" 


e X = PEEK(234): compteur de 
collision HGR. 
e X = PEEK(241): 256 — X = vi- 


tesse d'affichage écran. Utilisé par 
"SPEED=”. 

e X = PEEK(249): 
(entre O et 255). 
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ex. =) EN PE(977 SEX ce 
40383, le DOS n'est pas présent 
en MEV. 

e IOB = PEEK(987) x 256 + 232: 
adresse de la table des en- 
trées/sorties utilisée par RWTS. 


e X = FN PE(I008): adresse du 
sous-programme gérant les inter- 
ruptions BRK. 

e X = FN PE(1010) : adresse de re- 

tour au langage en cours d’utilisa- 

tion. 

X — FN PE(1014): adresse d'un 

sous-programme appelé par & 

(Ampersand). 

e X — FN PE(1017): adresse d'un 
sous-programme appelé par 
CTRL-Y en mode moniteur. 


Pages texte ($400-$7FF) 


e CA = PEEK(1024 + X + 128%Y 
— 984xINT(Y/8)) 

CA = code ASCII du caractère se 
trouvant au point de coordonnées X 
et Y de l'écran texte (0 <= X <= 
39 et 0 <= Y <= 23). 

Pour la page 2 de texte (non accessi- 
ble nonnalement en Applesoft}, rem- 
placer 1024 par 2048. 


valeur de ROT 


8 groupes d'adresses sont réservées 
à chacun des slots : 

: $478-$47F (1144-1151) 

: $4F8-$4FF (1272-1279) 

: $578-$57F (1400-1407) 

: $5F8-$5FF (1528-1535) 

: $678-$67F (1656-1663) 

: $6F8-$6FF (1784-1791) 

: $778-$77F (1912-1919) 

: $7F8-$7FF (2040-2047) 

Vous pourrez y trouver certaines in- 
dications concernant les périphéri- 
ques, par exemple : 

X = PEEK(1144) (soit $478): nu- 
méro de la dernière piste lue ou 


écrite. 
X —  INT(PEEK(1528)/16) (soit 
numéro du slot contenant le 


IA O.P © N mm © 


$5F8) : 
contrôleur qui a initialisé le DOS en 
activité. 
Page 8 


Un programme Applesoft commence 


normalement à ladresse $801 

(2049) 

e AD = FN PE(2049): adresse de 
la seconde ligne du programme 
Applesoft ; 

e NUM = FN PE(2051): numéro 


de ligne de la première ligne Ap- 
plesoft. 


DOS 48K ($9600-$BFFF) 

Toutes les adresses sont données 
pour un système 48K. Pour 32K ou 
16K,  retrancher respectivement 
16384 et 32768. Pour un DOS re- 
logé en carte langage ou extension, 
ces adresses ne sont plus valables. 


e X = PEEK(40185) : X=0 ou X > 
2 pour le lecteur 1; X=2 pour le 
lecteur 2. 

e X = FN PE(40192) - 595 x N 
+38. adresse du Nème tampon 
du DOS. 


e X = PEEK(43603) : adresse de la 
routine de sortie de caractères (cf 
CSW,CSWH) 

X = PEEK(43604) : adresse de la 
routine d'entrée de caractères (cf 
KSWHRKSWE) 


e X = PEEK(43607). nombre de 
tampons (buffers) du DOS. Fixé 
par MAXFILES. 


e X = FN PE(43616) : longueur du 
dernier programme binaire chargé 
en MEV 

X = PEEK(43622). 
volume actuel. 

X = PEEK(43624) : 
lecteur actuel Pour permuter 


entre deux lecteurs. faire un 
POKE 43624,3-PEEK(43624), 


numéro de 


numéro de 


e X = PEEK(43626): numéro de 
poit actuel. 

e X = PEEK(43628) : longueur du 
dernier enregistrement. 

e X = PEEK(43630) : numéro du 
dernier enregistrement. 

e X = PEEK(43632): numéro de 


loctet actuel. 
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e X = FN PE(43634): adresse de 
début du dernier programme bi- 
naire chargé en MEV. 


BLOCK 10B 


10B (INPUT/OUPUT BLOCK): uti- 

lisé par le sous-programme RWTS 

(Read Write Track Sector) pour l'ac- 

cès à un secteur de la disquette. 

L'adresse de la table JOB utilisée par 

le DOS est donnée par : 

e IOB = 256: PEEKIFNPE(996)) + 
PEEK(FNPE(999)) 

Pour un DOS standard 48K, 10B = 

47080 ($B7E8). 

DOS relogé en carte SATURN : IOB 

= 49128. 


Les informations suivantes peuvent 
être obtenues par un PEEK à une 
adresse de l'IOB : 
e X = PEEK(IOB): type de l'IOB, 
égal à 1 pour DOS sur disquette. 
e X = INT(PEEK(IOB + 1)/16): 
numéro du slot dans lequel se 
trouve l'interface DISK à utiliser. 
X = PEEK(IOB + 2) : numéro du 
lecteur de disque (1 ou 2) à utili- 
ser. 


e X = PEEK(IOB + 3) : numéro de 
volume attendu. 
e X = PEEK(IOB + 4) : numéro de 


la dernière piste lue (0 - 34) 

X = PEEK(IOB + 5) : numéro du 

dernier secteur lu (0 - 15 en DOS 

3,3, 0 - 12 en DOS 3.2). 

X = EN PE(OB + 6): adresse de 

la table des caractéristiques de la 

mémoire de masse utilisée. 

e X = FN PE(IOB + 8) : adresse du 
dernier tampon du DOS utilisé. 

e X = PEEK(IOB + 12) 

X = O0: mode positionnement de la 

ve 


= 1 : mode lecture 
. = 2 : mode écriture 
X = 4: mode formatage 


e X = PEEK(IOB + 13): contient le 
code d'erreur lors d'une opération 
écriture ou lecture : 

X = 0: pas d'erreur 

X = 16: disquette protégée en écii- 

ture ou défectueuse. 

X = 32: erreur de volume. Ne cor- 

respond pas au volume attendu en 

10B + 3, 

X = 64: erreur de lecteur d’origine 

indéfinie. 

X = 128: erreur de lecture. Emis 

après 48 essais successifs infructueux, 

— PEEK(OB + 14): numéro 
Êe volume de la dernière disquette 
ue. 

= INT(PEEK(IOB + 15)/16): 
numéro du dernier siot utilisé. 

= PEEK(IOB + 16): numéro 
du dernier lecteur utilisé (0 ou 1). 


DOS relogé sur la carte d’exten- 
sion Saturn 32K 


e X = FN PE(48992) : longueur du 
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dernier programme binaire chargé 


en MEV. 

e X — FN PE(49010): adresse du 
dernier programme binaire chargé 
en MEV. 


Adresses $C000-CFFF 


e X = PEEK(49152) (ou —-16384) : 
saïsie au vol d’un caractère au cla- 
vier. Si X > 127, une touche a 
été enfoncée et X — 128 = code 
ASCII du caractère frappé au cla- 
vier. 

L'instruction ci-dessous permet par 

exemple d'interrompre temporaire- 

ment l'affichage : 

IF PEEK(-16384) > 127 THEN 

POKE —-16368,0: WAIT —-16384, 

128 : POKE —-16368,0 


= PEEK(49184) (soit —-16352) 
active la sortie magnétophone. 
Permet la sortie sur un amplifica- 
teur. Un deuxième PEEK à la 
même adresse désactive la sortie. 


e X = PEEK(49200) 
+PEEK(49200) (soit —16336): 
fait cliqueter le haut-parleur. Peut 
être remplacé par un 
49200, PEEK(49200). 


Pour obtenir un “TOP”, 
utiliser : 

FOR 1 = 49200 TO 49230 : X = 
PEEK() : NEXT 


Pour simuler le bruit d’une bille qui 
rebondit : 
FOR N = O TO 30: FOR I = 49200 
TO 49230 - N: X = PEEK({: 
NEXT IN 


e X = PEEK(49216) (ou —16320) : 
impulsion utilitaire. La broche 5 
du connecteur de jeu chute de +5 
volts à O voits pendant 0,98 mi- 
crosecondes, puis revient à +5 
. 


e X = PEEK(49232) (ou —16304) : 
ee du mode graphique 

e X = PEEK(49233) (ou —16303) : 
sélection du mode TEXT. 

e X = PEEK(49234) (ou —-16302) : 
sélection du mode graphique non 
mixte (écran entier). 

e X = PEEK(49235) (ou —-16301) : 
sélection du mode graphique 
mixte (4 lignes de texte). 

e X = PEEK(49236) (ou —16380) : 
sélection du mode graphique 


(HGR 1). 
X = PEEK(49237) (ou —16299) : 
sélection du mode graphique 


GR 2). 
= PEEK(49238) (ou —-16298) : 
sélection du mode graphique 
basse résolution. 
X = PEEK(49239) (ou —16297) : 
sélection du mode graphique 
haute résolution (HGR ou HGR2). 
e X = PEEK(49232) + PEEK 
(49234) + PEEK(49236) + PEEK 
(49239) : passage en mode HGR 
pleine page sans effacement. 
e X = PEEK(49232) + PEEK 


on pourra 


(49234) + PEEK(49237) + PEEK 
(49239) : passage en mode HGR2 
sans effacement. 


e X = PEEK(49240) (ou —16296) : 
sortie tout ou rien numéro O OFF. 
e X — PEEK(49241) (ou —16295): 
sortie tout ou rien numéro O ON. 
e X — PEEK(49242) (ou —16294) : 
sortie tout ou rien numéro 1 OFF. 
e X — PEEK(49243) (ou —-16293) : 
sortie tout ou rien numéro 1 ON. 
e X = PEEK(49244) (ou —16292): 
sortie tout ou rien numéro 2 OFF. 


e X = PEEK(49245) (ou —-16291): E + 
sortie tout ou rien numéro 2 ON. “ 
e X = PEEK(49246) (ou —16290) : sa 
sortie tout où rien numéro 3 OFF. Ex 
e X = PEEK(49247) (ou —-16289) : 8x 
sortie tout ou rien numéro 3 ON. + 
e X = PEEK(49248) (soit —16288) là 
active l'entrée magnétophone. Un É.1 
deuxième PEEK à cette adresse a 
déconnecte le magnétophone en si 
lecture. HE 
e X — PEEK(49249) (ou —16287): tt 


teste le bouton de la manette nu- 
méro 0. Si X>127, le bouton a 
été pressé. 
Il n'est effectivement prévu que 3 en- 
trées numériques sur lesquelles sont 
branchés les boutons poussoirs. On 
peut avoir une 4ème entrée en utili- 
sant l'entrée magnétophone... 


e X = PEEK(49250) (ou —16286) : 

teste le bouton de la manette nu- 

méro 1. 

X = PEEK(49251) (ou —16285). 

teste le bouton de la manette nu- 

méro 2. 

X = PEEK(49252) (ou —16284) : 

lecture de la manette numéro 0. 

X = PEEK(49253) (ou —16283) : 

lecture de la manette 1. 

e X = PEEK(49254) (ou —-16282) : 
lecture de la manette 2. 


e X = PEEK(49255) (ou —16281): 
lecture de la manette 5. 


Ces entrées analogiques peuvent être 
utilisées pour des accessoires autres 
que les manettes. 


Les adresses 49256 à 49263 jouent 
un rôle identique à celui des adresses 
49248-49255, 


e X = PEEK(49264) (ou —-16272) : 
remise à zéro des entrées analogji- 
ques. Les valeurs des adresses 
49252 à 49255 passent à une va- 
leur supérieure à 127. 


FORS = 0 TO 7: PRINT 
PEEK(49386 + 256%S) + 
PEEK(49388 + 256%S) + 
PEEK(49390 + 256%5S) : NEXT 
foumit un nombre caractéristique de 
l'interface présente dans le slot S : 
0 : carte RAM STATIQUE LEGEND 
14 : carte CPS MULTIFUNCTION 
113 : cart langage APPLE 
350 : programmateur 
Micro-Périph 
376: interface imprimante (dépend 
de l'interface) 


d'Eproms 
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497 : interface parallèle MID P2 
519 : carte SATURN 32K 

583 : interface DISK DOS 3.3 
632 : interface DISK DOS 3.2 


On peut aussi lire à cet égard ‘’Ana- 
lyse du contenu des slot” dans le 
Pom's 1. 


e X = PEEK(49384} (ou —-16152) : 
arrête le moteur du lecteur. 

e X = PEEK(49385) (ou —-16151}: 
démarre le moteur du lecteur. 


Gestion d'une carte d’extension 
MEV 


Les adresses ci-dessous sont données 
pour une carte insérée dans le slot S 
(0<= S'<= 17) 

e X = PEEK(49280 + 16%S) (soit 
—16256 + 16xS): connecte la 
carte d'extension mémoire (BLOC 
2) en mode lecture. Protection en 
écriture. 


e X — PEEK(49281 + 16*S) + 
PEEK(49281 +  16+*S) (soit 
—16255 + 16+S): déconnecte le 
BLOC 2 en mode lecture Dépro- 
fège en écriture. La lecture de la 


Le lecteur Micro-Expansion 


Vincent Plassard 


Depuis un an environ, on parlait de 
ce fameux disque 1 Méga, et j'atten- 
dais avec impatience cette nouveauté 
qui allait désormais agrandir considé- 
rablement la mémoire de masse de 
mon Apple //e Enfin éliminées, 
toutes ces manipulations de disquet- 
tes 140K, trop petites pour les f- 
chiers un peu importants. 


Le mardi 6 mars 1984, j'ai acheté un 
ensemble lecteur Micro-Expansion 
G502 chez un distributeur Apple 
connu de tous les Lyonnais. Il venait 
juste de le recevoir et je suis reparti 
le soir même avec mon appareil. Il 
m'a semblé intéressant de faire part 
aux lecteurs de Pom's de mes pre- 
mières impressions d'utilisateur et de 
passionné d'informatique. 


Le matériel 


L'ensemble lecteur G502 est livré 
dans un carton assez impressionnant, 
le boîtier étant entouré de plaques 
de mousse protégeant efficacement 
le matériel pendant le transport. L’in- 
ventaire du colis est le suivant : 


e 1 boîtier intégrant 1 ou 2 lecteurs 
(selon le type choisi] Le boîtier 
est en bonne tôle solide, à 13 kg 
l'ensemble (plus de 3 Apple //c 
….) La face avant est agréable et 
les voyants permettent de visuali- 
ser Le fonctionnement des lecteurs. 

e 1 alimentation (de bonne qualité). 

e 1 ventilateur. 


ROM est possible. 


X — PEEK(49282 + 16x:S) (soit 
—16254 + 16xS): BLOC 2 de la 
carte déconnecté en lecture, pro- 
tection en écriture. C'est-à-dire re- 
tour au langage en ROM. 


e X = PEEK(49283 + 16*S) + 
PEEK(49283 +  16x%S) (soif 
— 16253 + 16%S) : le BLOC 2 de 
la carte d'extension est accessible 
en lecture ET en écriture. 


Les 12K du BLOC 1 sont accessibles 

de la même facon par les PEEKSs sui- 

vants. 

e X = PEEK(49288 + 1648) (soit 
—16248 + 16+S) 

e X — PEEK(49289 + 16:S) (soit 
—16247 + 16+S) 

e X = PEEK(49290 + 16%S) (soit 
—16246 + 16%S) 

e X = PEEK(49291 + 16%S) (soit 
— 16245 + 16+S) 


Pour une carte d'extension 32K ou 
plus. la 2ème tranche de 16K est ac- 
cessible par les PEEKSs indiqués ci- 
dessous : 

e BLOC 2. 


utiliser X — PEEK 


e 1 carte Interface/Contrôleur qui 
assure la liaison entre l'Apple et le 
boîtier. Cette caite est impression- 
nante, mais s'intègre parfaitement. 
Pour les connaisseurs, elle est vrai- 
ment chouette”. 

e 1 disquette de démarrage (140 K). 
Cette disquette pennet d'initialiser 
et de fonnater les disquettes 1 
Méga sous le système d'exploita- 
tion que vous utiliserez. Îl existe 
actuellement des disquettes de dé- 
marrage pour DOS 3:3; 
MEM/DOS, Pascal et CP/M. Ces 
disquettes proposent différents uti- 
litaires propres à l'utilisation des 
lecteurs 1 Méga. 

e 1 manuel d'utilisation du système. 
À la livraison, on m'a remis un 
manuel qui me semblait un peu 
confus; j'en ai fait la remarque à 
mon revendeur. Je viens de rece- 
voir une nouvelle documentation 
beaucoup plus explicite. Il est im- 
portant de lire ce fascicule pour 
éviter des erreurs de manipulation 
qui pourraient être préjudiciables. 

e Î cordon secteur (alimentation 
220V). La prise de terre est obli- 
gatoire (ne pas l'oublier). 

© 1 nappe reliant l'interface au boî- 
tier. Un détrompeur propre à cha- 
que connecteur évite tout risque 
d'erreur dans les branchements. 


Caractéristiques 
techniques 


(49284 + 16:S) à (49287 + 
16*S). 

e BLOC 1: utiliser X = PEEK 
(49292 + 16%S) à (49295 + 
16xS), 


ROM 


X = PEEK(64255) (soit —1281) 
= 0 si c'est la ROM AUTOSTART. 
= 1 avec l'ancien moniteur. 


NDLR: une certaine redondance 
existe inévitablement entre les PEEKSs 
à et les POKEs à gogo (Pom's 
D Conan sont symétriques, tels 
par exemple ceux qui concernent la 
gestion de l'écran fde 32 à 35). 
D'autres, tels ceux des zones de 
49232 à 49249. jouent un rôle iden- 
tique. Nous les avons gardés dans 
cet article, car il n'est pas évident a 
priori {sauf pour les champions) que 
ces PEEKSs et POKESs sont de nature 
similaire. Remarquons par ailleurs 
que les PEEKS relatifs au DOS 33. 
comme les POKEs du même genre. 
n'ont aucune raison de fonctionner 
pareillement avec le ProDOS. m 


1 Méga 


e 
X 
X 


Caractéristiques générales 


e Nbre de lecteurs par unité : 1 pour 
le modèle G.501, 2 pour le mo- 
dèle G.502 

e Nbre de têtes de lecture : 2 par 

lecteur 

Nbre de pistes par face : 77 

Nbre de pistes total : 154 

Nbre de secteurs par piste : 26 

Nbre d'octets par secteur : 256 

Vitesse de rotation : 360 tm 

Temps de top moteur (maxi): 1 

sec. 


Caractéristiques 
d'Enregistrement 


e Capacité non formatée : 1.604 

K.octets 

Capacité formatée : 1025 Koctets 

Temps d'accès piste à piste : 5 ms 

Temps d'accès moyen : 91 ms 

Temps d'accès maximum: 395 

ms 

e Temps de stabilisation : 15 ms 

© Temps moven d'attente : 17 ms 

@ Vitesse de transfert: 500 
Kbits/sec. 


Dimensions du boitier : hauteur 
15 cm, largeur 26 cm, profondeur 36 
cm. 


Supports magnétiques: type 
BASF réf. 2 HD 71/053 ou Micro- 
Expansion réf. DQ 500 H. 


MTBF (mean time between failu- 
res) : 8.000 heures. 
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Mes impressions 
d'utilisateur 


Maintenant que vous connaissez un 
peu mieux l’ensemble G.501/G.502, 
c'est-à-dire le matériel et ses caracté- 
risques, je vous livre mes impressions 
d'utilisateur. C'était d’ailleurs l'objec- 
tif que je m'étais fixé en me mettant 
à ’’pianoter” cet article. 


J’ai travaillé avec les 1Mo sous DOS 
3.3 et sous MEM'DOS. La première 
remarque que je peux faire, c’est que 
les 1Mo sont beaucoup plus adé- 
quats sous MEM/DOS qu'en DOS 
3.3. Le ProDOS aura certainement 


une meilleure efficacité avec ces lec- 
teurs que le DOS 3.3. 


Système DOS 3.3 


Il faut savoir tout d’abord que, sur 
une disquette 1Mo, on met 7 dis- 
quettes 140K. L'équivalent d’une 
disquette 140K s’'appellera VOLUME 
avec le système 1Mo. C'est déjà le 
cas avec les disquettes 140K, mais 
on ne s’y sert en général pas des nu- 
méros de volume. ATTENTION, le 
numero de volume qui était utilisé 
avec les disquettes 140K n'est pas 
reconnu par le système 1Mo. 


Une disquette 1Mo contient 7 catalo- 
gues (D1..D7). Pour lire un pro- 
gramme ou un fichier qui se trouve 
sur le troisième volume de la dis- 
quette 1Mo, vous devrez taper 
"LOAD nomfic.Ss,D3”. En résumé, 
on peut considérer qu'avec un en- 
semble lecteur 1Mo, nous avons : 


— 7 drives 140K (D1..D7) avec le 
modèle G.501, 
— 14 drives 140K (D1 .D14) avec le 
modèle G.502. 


Le principal avantage du système est 
d'éviter la manipulation de disquettes 
et d'avoir en permanence l'accès à 7 
ou 14 drives selon le modèle. 


Après avoir booté la disquette de dé- 
marrage 140K, à la mise sous ten- 
sion de l'Apple, le système est utilisa- 
ble et vous voyez apparaître à l'écran 
le menu des utilitaires, à savoir. 


Formatage physique disquette 1Mo 
Initialisation des Volumes 

Tranfert des Programmes {le FID) 
Copie d'un Volume (c'est COPYA) 
Catalogue des Volumes 1Mo 
Copie rapide du 1Mo sur un 1Mo 
Retour au Basic 


La copie rapide du 1Mo sur 1Mo est 
vraiment très rapide : 1°20” pour re- 
copier l'équivalent de 7 disquettes | 


En cours d'utilisation, les temps de 
transfert entre la disquette 1Mo et la 
mémoire de l'Apple sont semblables 
à ceux du DOS 3.3. 


Dès la mise sous tension de l’ensem- 
ble lecteur 1Mo. le ventilateur de re- 
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froidissement se met à tourner. Je ne 
peux pas dire qu'il soit vraiment 
bruyant mais ce ”’ronron”’ permanent 
est pénible à supporter... 


Dans l'immédiat, les logiciels tels que 
Visicalc, Multiplan ou Apple Writer 
ne sont pas utilisables sur disquettes 
1Mo, et je le regrette beaucoup. 
Sinon, aucun problème d'utilisation 
n'est à noter sous DOS 3,3. 


Système MEM/DOS 


Je ne sais pas si beaucoup d’entre 
vous connaissent et utilisent le 
MEM/DOS, mais je l'emploie pour 
ma part très souvent, car il simplifie 
considérablement la programmation 
par l'usage de masques et grâce à sa 
manipulation des fichiers. Depuis que 
j'ai découvert MEM'DOS, je ne 
comprends pas comment jai pu 
men passer antérieurement Par 
contre, pour des fichiers importants, 
une disquette 140K est rapidement 
saturée; faire une recherche ou un tri 
sur plusieurs disquettes devient une 
véritable acrobatie, voire une opéra- 
tion pratiquement irréalisable. 


Actuellement, avec les 1Mo, le pro- 
blème est résolu. Vous disposez réel- 
lement d’un méga en ligne par dis- 
quette, contrairement à la disquette 
1Mo sous DOS 3.3 qui compte 1Mo 
fractionné en 7 volumes. Vous saisis- 
sez les perspectives qui s'ouvrent au- 
jourd'hui aux utilisateurs. Jusqu'alors, 
pour résoudre un tel problème, un 
disque dur était indispensable, sans 
parler du backup nécessaire pour la 
sauvegarde. 


Les utilitaires sous MEM/DOS sont 
complet et sans problème apparent. 
J'ai observé une grande vitesse 
d'exécution, phénomène qu'on ne 
constate pas sous DOS 3.3. 


En résumé, avec un Apple //e, une 
caite 80 colonnes étendue. une carte 
MEMDOS, et cet ensemble lecteur, 
vous pouvez réaliser efficacement des 
applications professionnelles qui ne 
relèvent plus d’un bricolage infonna- 
tique. Cette configuration est vrai- 
ment performante pour une entre- 
prise, pour un établissement scolaire, 
pour qui doit traiter la paye. la 
comptabilité, les plannings, la ges- 
tion, les fichiers clients, les fichiers 
élèves, tous les fichiers. 


Conclusion 


Ce n'est pas après deux semaines 
d'utilisation que je peux prétendre 
connaître à fond ce nouveau matériel 
mais, d'emblée, je peux dire en toute 
simplicité que cet ensemble lecteur 
1Mo est bien conçu et qu’il corres- 
pond à un besoin réel. L'utilisateur 
moyen à désormais la possibilité 
d'accéder à une mémoire de masse 
très acceptable et à une possibilité de 
sauvegarde adéquate. 


Le marché du disque dur 5Mo risque 
d'être touché par cette nouveauté. 


Le prix 

Hélas, le prix n'est pas à la portée de 
toutes les bourses 13.000 F TTC 
pour le modèle G501, 25.000 F 
pour le G.502. La disquette 1Mo re- 
vient à 130 F. Pour des applications 
concrètes et utilitaires, ce prix sera fa- 
cilement considéré comme un inves- 
tissement rentable et indispensable. 
Au niveau de l'amateur, il est certai- 
nement prohibitif. 


Formulons l'espoir de voir un jour les 
prix baisser, mais nous payons le prix 
du sérieux et de la technicité 
(NDLR: … et d'un marché pour le 
moment hexagonal.). 


Bravo pour cette réalisation fran- 
çaise ! Les 2Mo m'ont mordu. 


Pour la petite histoire, chacun sait 
que le week-end est propice pour se 
consacrer à fond à de tels essais. Ma 
femme avait eu la délicatesse et la 
gentillesse de me laisser seul dans 
mes expériences. Quelle ne fut pas 
sa surprise, en rentrant le soir, de me 
retrouver avec un énorme panse- 
ment autour de la main gauche. 

Non, rassurez-vous. les 2Mos ne 
m'avaient pas "véritablement” 
mordu, c'était simplement une gros- 
sière erreur de cuisinier étourdi … 
Pour ma punit'on, la brülure réduit 
dans l'immédiat ma vitesse de 
frappe, mais heureusement, je récu- 
père facilement avec mes 2Mo le 
temps que j'aurais perdu en manipu- 
lation de disquettes … 


En conclusion, les 2Mos, c'est TER- 
RIBLE. 


NDLR: nous devons apporter un 
bémol à cette étude enthousiaste, où 
l'on reconnaît l'esprit dynamique de 
l'animateur du club Info-Maniaques 
{62 avenue Paul Sant - 69008 
Lyon). Nous n'avons pas encore eu 
foccasion à Ponrs de tester ce lec- 
teur et réservons donc notre opinion 
en attendant. Dés que Micro-E xpan- 
sion nous aura confié un matériel, 
nous vous apporterons notre opinion 
en complément. 

Rappelons également. pour une 
meilleure analyse du marché et une 
meilleure information des utilisateurs 
intéressés par ce tvpe de mémoire de 
masse, que la société LE.F (Paris) 
commercialise depuis quelques 
années des lecteurs de disquettes 
souples 1Mo, d'un prix relativement 
moins élevé maïs aussi d’une techno- 
logie moins “lourde” {pas d’alimenta- 
ëon autonome, pas de ventilation...) ; 
par contre, la fiabilité de ce lecteur 
semble inférieure. 

Vous pourrez consulter une présenta- 
tion de ces autres lecteurs dans l'arti- 
cle consacré aux Mémoires de Masse 
dans le Pom's 4 ou le Recueil No 1. M 
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Réduction d'image HGR 


Patrice Neveu 


Pom's vous a souvent proposé des 
programmes pour gérer les pages 
gaphiques : inversion des couleurs, 
transferts, opérations logiques entre 
plusieurs pages, stroboscopie, etc. 
Aujourd'hui, je vous offre un ensem- 
ble de routines qui permettent de ré- 
duire une page graphique au quart 
de sa taille normale. 


Le programme Basic de démonstra- 
tion Réduction au 1/4 prend une 
image stockée sur disquette et la ré- 
dut au quart de sa taille en haut à 
gauche de l'écran. Il utilise les routi- 
nes en assembleur suivantes : 


e Réduit Hauteur qui réduit de 
moitié la hauteur de l'image: 

e Réduit Largeur fait de même, 
avec la largeur bien sûr; 

e Moitié 1 — Moitié 2 transfère la 
demi-partie gauche de l'image à 
droite: 

e Copyleft agit sur les derni-parties 
hautes et basses, 


ple transfert entre les 2 pages; 
e HGR2+HGR2 -> HGR super- 
pose les 2 pages sur la premiére. 


Hormis les 2 dernières routnes qui 
sont très simples, quelques mots 
d'explication pour les autres : 


— Copyleft est une routine de Jean- 
François Duvivier parue dans le nu- 
méro 3 de Pom's: elle est utilisée ici 
pour inverser les parties hautes et 
basses d'un écran: 


— Réduit Hauteur balaye une ligne 
sur deux de l'écran 1, par appel à 
HPOSN (module de l'interpréteur 
Applesoft en $F411l renvoyant 
l'adresse de base d'une ligne graphi- 
que) et stocke cette ligne sur l'écran 


— Réduit Largeur est le module le 
plus compliqué de l'ensemble car il 
s'agit de conserver un pixel sur deux. 
en travaillant sur des octets où seuls 
7 bit nous intéressent et sont affi- 
chés en ordre inverse : 


points (pixels) soit 20x2x7. Examni- 
nons un groupe de 2x7 pixels et 
codons-les individuellement : 

Ecran : ABCDEFGHIJKLMN 

Les octets équivalents sont au nom- 
bre de 2 et leurs bits sont : 

Octets : *GFEDCBA#NMLKJIH 
avec * et # les bits de couleur 
Regroupons arbitrairement ces deux 
octets en un seul avec les bits : 
Octet : *NLJHFDB 

Cet octet apparaît graphiquement 
comme 7 pixels : 

Ecran : BDFHJLN 

et l'objectif de ne conserver qu'un 
seul pixel sur 2 est donc réalisé. 


Le programme Réduction infinie 
permet de dupliquer une image en 
quatre plus petites, ou de juxtaposer 
4 images différentes sur un même 
écran graphique. 


Bien entendu, la notion de couleur 
n'est pas conservée ! Pour éviter des 
pertes trop sensibles de définition. il 
est conseillé d'avoir une image origi- 
nale en HCOLOR=3 {blanci. D'au- 
tre part, rien n'empêche de recom- 
mencer la réduction au quart une 
nouvelle fois; on peut ainsi obtenir 
des réductions au 1/16. Difficile d’al- 





e HGR2 — HGR effectue un sim- Une ligne graphique comporte 280 ler plus loin! = 
30 DBS = DS + "BRUN" 
Programme REDUCTION au 1/4 es Moi 
10 HOME 36 DSS = DS + ‘“BSAVE" 
100 INPUT ‘NOM DE L’IMAGE A REDUIRE : ‘“ 40 INVERSE : PRINT ‘ DEMONSTRATION DE R 
ris EDUCTION D’IMAGE HGR “: NORMAL 
140 INPUT ‘NOM DE L'’IMAGE FINALE : ‘“:NF 50 PRINT : PRINT ‘ALEXANDRE AVRANE OS/M 
S A1/1984 POUR POM°S" 
3930  HGR2 55 PRINT : PRINT : PRINT ‘REDUCTION D'’U 
1000 HGK NE SEULE IMAGE OÙ DE QUATREIMAGES 
1005 KEM ### GRAPHIQUE TOTAL ### DIFFERENTES (1/4)? “:;:: GET AS 
1010 POKE -+ 16302,0 56 1F AS = ‘“4"* THEN 500 
1015 REX 57 IF AS « “1 THEN RUN 
1020 PRINT CHRS (4) ‘"BLOAD"I115S",AS2000" 39 REM ### UNE SEULE IMAGE *## 
1040 PRINT CHRS {4)"BRUN REDUIT LARGEU 100 PRINT : PRINT : INPUT “NOM DE L'’IMA 
R.OBJ" GER VETIES 
1050 POKE - 16300,0 110 HGR2 : HGR : POKE 49234,0 
1060 PRINT CHRS (4)"BRUN HGRZ->HGR.OB35 120 PRINT DELSI1iS‘",AS2000" 
Sy 125 GOSUB 1000 
1085 REM ##*# NETTOIE PAGE 2 #*#* 130 GOSUB 2000 
1070 HGR2 140 PRINT DBS"HGR+HGR2->HGRZ.8BJ" 
1075 REM #**# BRANCHE PAGE 1 ### 1350 POKE 49237,0 
1080 POKE 230,32 160 AS = “2000<4000.5FFF'": G8SUB 4000 
1085 REM 170 GOSUB 3000 
1080 PRINT CHRS {4)'BRUN REDUIT HAUTEU 180 PRINT DBS"HGR+HGR2->HGR2.0B9J" 
R.OBJ" 130 POKE 49237,0 
1200 IF NFS < > ‘** THEN PRINT CHRS « 200 HOME : GET AS 
4)"BSAVE"NFS",AS4000,LS1FF8" 210 TEXT : HOME : PRINT “ON REDUIT ENCO 
1210 HOME : GET AS: TEXT RE? (O/N) ‘“:: GET AS 
220 IF AS = ‘“O" THEN PRINT : POKE 4923 
9,0:AS = “2000<4000.5FFF'": GOSUB 
4000: HGR2 : GOTO 125 
Programme REDUCTION INFINIE 225 GOTO 900 
499 REM ### 4 IMAGES DIFFERENTES #*## 
1 REM ### REDUCTION INFINIE ### 500 PRINT : PRINT : INPUT “NOM DE L’IMA 
10 TEXT : HOME : SPEED= 255: NOTRACE GEL" SIdS 
11 ÈONERR GOTO 330 SOS HGR2 : HGR : POKE 43234,0 
12 LOMEN: 32768 510 PRINT DLS11S",AS200€* 
20 DS = CHRS (4) 520 GOSUB 1000 
ASE HYETITS 


Pom's n° 13 





352$ AS = ‘“6000<4000.5FFF": GOSUB 4000 9300 PRINT PRINT : PRINT ‘SAUVEGARDE D 
527 POKE 49236,0: POKE 49233,0 E L’'IMAGE REDUIFE®": INPUT ‘NOM (R 
930 PRINT INPUT “NOM DE L'IMAGE 2: *: ETURN SINON): ‘":12S 
125 9310 IF TSX > THEN PRINT DSSI2S", 
935 POKE 48232,0 AS4000,LSIFF8"* 
940 PRINT DESI2S"*,AS2000" 920 PRINT PRINT “ON RECOMMENCE?Y {O/N) 
550 GOSUB 1000 “+2 GET AS: IF AS = "“O"* THEN RU 
580 GOSUB 2000 N 
585 AS = “400O0O<6800.7FFF": GOSUB 4000 9330 END 
95930 PRINT DBS"HGR+HGR2->HGR2.0BJ" 390 POKE 216.0: TEXT HOME RESUME 
600 POKE 49237,0 3993  REM *« REDUCTION --> HAUT GAUCHE * 
610 AS = "’6000<4000.5FFF'": GOSUB 4000 1000 POKE 230.32 
620 POKE 4S236,0: POKE 4S3233,0 1010 PRINT DBS'"REDUIT LARGEUR.CBJ"* 
630 PRINT : INPUT ‘NOM DE L'’'iMAGE 3: “: 1020 POKE 49S237,0 
135 1030 AS = ‘“2080<4800,SFFF'": GOSUB 4000 
640 POKE 492Z37,0 1040 HGR2 
650 PRINT DLSI3S",AS2000" 1050 PÜKE 230,52: KEM PAGE=: 
653  HGR2 1868 PRINT CHRS {4)'"*BRUN REDUIT HAUTEU 
660 GOSUE 1000 ROBES 
670 GOSUB 3000 1070 AS = ‘2000<400vV.SFFF": BOSUB 4000 
675 AS = “4000<6000.7FFF'": GOSUE 4000 1080 RETURN 
680 PRINT DBS"*HGR+HGR2->HGR2.0BJ" 199%  REM + TRANSFERT GAUCHE-DROITE +# 
6980 POKE 43237.8 2800 POKE 230,32 
700 AS = “6808<4000,.SFEF": GUSUB 4U0O 2010 POKE 49236,0 
710 POKE 49236,0: POKE 4S233,0 2020 PRINT DBS"MOITIEÏi->M@ITIE2.0BJ" 
720 PRINT INPUT “NON DE L'’iMALE 4: 2030 RETURN 
145 23993  REM #*x TRANSFERT HAUT --> BAS ## 
736 POKE 4323%,0 3000 PRINT DES"C@PYLEFT" 
740 PRINT DES14S",as2008" 3010 POKE 771,3Z: POKE 777.96: POKE 773 
750 HGR2 1: POKE 774,0 
760 GOSUB igv0 3020 POKE 49236,0 
770 GUSUB 2000 3030 CALE 768 
750 GOSUB 3000 3040 RETURN 
800 AS = ‘‘4000<6000.7FFF": GOSUE 4000 3999 KEM ##* DÉPLACE LES PAGES #+# 
810 PRINT DES"HGR+HGR2->HGR2.0BJ" 4080 AS = AS + ‘"M NDSC6G": FOR I = i TO 
820 POKE 49237,0: GET AS LEN' CASE PURE SIL + I; ASCII, ME 
830 P@KE 49236,0: POKE 4S5233,0 DS ASSIS)» +127  NEXT POKE 7 
893 KÉM #ex SAUVEGARDE DE L'IMAGE #r# 2,0: CALE - 14494: KRETURKN 
31 DEP DFS 1 
REDUIT LARGEUR 21 DEP. OFSA 
Lisa 2.5 Sa DEBUT  LDA #$00 
35 STA OCT 
36 STA LIGNE 
À 2 DD DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE 37 3; 
2 ;% * 38 LDA #$00 
3 ;*x CE PROGRAMME REDUIT x 39 STA +$C052 ; GRAPHIQUE TOTAL 
4 ;# DE MOITIE DANS LA # 40 STA $C055 3PAGE 2 
S j# LARGEUR;,LA PAGE 1, + 41 ; 
& ;# ET ENVOI LE RESULTAT * 42 CHERCHE iDA LIGNE 
7 ;% SUR LA PAGE 2. # 43 LDX ##$00 
(QUE 5 x 4 LDY #$00 
7 ;# AUTEUR : P . NEVEU # 45 JSR HPOSN 
10 :+x #* 46 ; 
LD 526262626262 DE DE DE DE DE DE DE DE DE DE DE DE DE D 47 LDY ##80 
12 3 48 STY DEP 
13 3 49 STY ARR 
14 ; 50 ; 
15 HPOSN EQU $F411 S1 LDA HBASL 
16 HBASL EPZ $26 52 STA Pil 
17 HBASH EPZ $27 93 EDA HBASH 
18 PiLl EP2Z $6 ADRESSE DE LA 54 STA PIH 
19 P1H EP2Z $7 3LIGNE,PAGE 55 CLC 
20 P2t EPZ #8 ADRESSE DE LA 56 ADC ##20 
21 P2H EP2 $9 3LIGNE,PAGE 2 57 STA P2H 
22: 58 LDA P1iE 
23 ORG $300 59 STA P2L 
24 ; 60 ; 
25 JUMP DEBUT 65 CHARGE LDY DEP 
26 ; 62 LDA (P1L),Y 
27 LIGNE DFS 1 3NUMERO DE LIGNE 63 STA 6CTi 
28 OCT DFS 1 ;OCTET RESULTAT 64 INC DEP 
29 OCTI DFS 1 3; OCTETS À és LOY DEP 
30 OCT2 DFS 1 ; RACCOURCIR. 66 LDA (CP1L),Y 


Pom's n° 13 

















67 STA OCT2 | 110 ; 
68 INC DEP 111 LDA OCT2 
67 ; 112 AND ##10 ;BITS 
70 ;2 OCTETS-)1 OCTET 113 aSt ;——)é 
71 ; 114 CLC 
72 LDA #00 115 ADC OCT 
2 STA OCT 116 STA OCT 
; 117 ; 
75 LOA OCTI 118 LDA OCT2 
76 AND #$80 ;BITS 519 AND H$04 ;BIT3 
77 CLC 5-8 120 ASL i——)5 
= ADC OCT 121 ASL 
STA OCT 122 CLC 
80 ; 123 ADC OCF 
81 LDA OCTI 124 STA OCT 
si 82 AND #520 ;B8ITé 125 ; 
El 83 LSR 5-3 126 LDA OCT2 
Ka 84 LSR 127 AND #$01 ;581T1 
is 85 LSR 128 ASL ;--D4 
is 86 CLC 129 asL 
He: 87 ADC OCT 130 ASL 
FE 88 STA OCT 131 ADC OCT 
sæ 
EF] " LDA OCTI ee Ré 
LES 5 
= 91 AND #$08 ;8IT4 134 ;SAWE L‘OCTET 
+ 92 LSR ;—-)2 135 ; 
+ 93 LSR 136 LDY ARR 
Es 94 CLC 137 STA (P2L) ,Y 
pr 6) 2 cu 138 INC ARR 
139 .LDA ARR 
97 3 140 CMP M119 
#8 LDA OCTi 141 BEQ CONT 
Re ARD 4502 ;81T2 142 JMP CHARGE 
LS 5—-)1 143 ; 
2 CLC 144 ;LIGNE SUIVANTE 
ADC OCT 145 ; 
103 STA OCT 146 CONT INC LIGNE 
; 147 LDA LIGNE 
105 LDA OCT2 148 CMP 4192 
106 AND #$40 BIT? 149 BEGQ FIN 
107 CLC 5-7 150 JMP CHERCHE 
108 ADC OCT 151 FIN RTS 
109 STA OCT 152 END 
Récapitulation Programme 34 LDA HBASH 
35 STA Pi 
REDUIT LARGEUR NE 56 à 
Lisa 2.5 37 LDA LIGNE2 
38 LDX ##00 
1 D EE DE DE DE DE DE DE DE DE DE DE DE DEEE DE DE DE DE DE DE DE DE EH 39 LDY #500 
0300- 4C 09 03 CO 60 00 A9 00 2 ;* * 40 JSR HPOSN 
0308- 8D A9 00 8D 04 03 8D 03 3 3% CE PROGRAMME PREND UNE * ai LDA HBASL 
0310- 03 A9 00 8D 52 CO 8D 55 4 ;# LIGME SUR DEUX DE LA * 42 STA P2L 
0318- CO AD 03 03 A2 00 A0 00 5 ;# PAGE 1 ET SAUVE SUR LA * 43 EDA HBASH 
0320- 20 11 F4 AO 00 8C 07 03 6 ;% PAGE 2. # 44 CLC 
0328- 8C 08 03 A5 26 85 06 A5 7 3% * 45 ADC #S20 
0330- 27 85 07 18 69 20 8S 09 B 5 Wed MM D BED DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE KE dé STA P2H 
0338- A5 06 85 08 AC 07 03 Bt 9 ; 47 ; 
0340- 06 8D 05 03 EE 07 03 AC 10 ; 48 ; 
0348- 07 03 Bi 06 8D 06 03 EE 11 HPOSN EQU $F411 49 LDY #$00 
0350- 07 03 A9 66 8D 04 03 AD 12 HBASL EPZ $26 50 BOUCLE LDA CPIL),Y 
0358- 05 03 29 80 18 6D 04 03 13 HBASH EPZ #27 51 STA CP2LD,Y 
0360- 80 04 03 AD 05 03 29 20 14 PIL EPZ $6 52 NE 
0368- 4A dA dû 18 6D 04 03 80 15 PIH EP 57 53 CPY #!139 
0370- 04 03 AB 05 03 29 08 4 16 P2L EPe #6 2 PER EOURLE 
0378- 4A 18 éD 04 03 8D 04 03 17 P2H EPZ #9 55 INC LIGNE! 
0380 AD 0502 29 02 44 19 éD LS LIGNEL ‘EPZ 34 Sé INC LIGNE! 
038604 02 60 14 03 40 08:03 19 LIGNEZ2  EPZ $8 57 INC LIGNE2 
0390- 29 40 18 6D 04 03 8D 04 20 3 sc LP LEBNEL 
| ! 
0398- 03 AD 06 03 29 10 0418 2! ÊRGY#300 HA NE ERrE 
22 ; 60 BNE CHERCHE 
03A0- 6D 04 03 8D 04 03 AD 06 23 } & } 
03A8- 03 29 04 OA OA 18 6D 04 23 DEeuT LDA #$00 62 ; PASSE EN PAGE 2 
0380- 03 8D 04 03 AD 06 03 27? :s STA LIGNE1 63 ; POUR VOIR LE 
L 
0388- 01 OA OA OA 6D 04 03 8D 5% SrA LIENES 24 PERL TAT 
03C0- 04 03 AC 08 03 91 OBEE 27, 65 ; 
0SC8" 09 09 00 08-08 7 19" F0, Ç2S-CHERCHE. CEDANLIGNET éé LDA #00 
03D8- 03 03 C9 CO F0 03 4C 19 30 LOY #$00 é8 STA $C055 
03E0- 03 60 31 JSR HPOSN 69 ; 
32 LDA HBASL 70 RTS 
33 STA PI1L 71 END 
D 


Pom's n° 13 


Récapitulation 
REDUIT HAUTEUR 


0300- A9 00 85 0À 85 08 AS OA 
0308- A2 00 AG 00 20 15 F4 AS 
0310- 26 85 06 AS 27 85 07 À5 
0318- 08 A2 00 A0 00 20 11 F4 
0320- AS 26 85 08 ÀS5 27 18 69 
0328- 20 85 09 AG 00 B1 06 #1 
0330- 0B C8 CO 27 D0 F7 Eé 0À 
0338- Eé OA Eé 0B AS JA C9 CO 
0340- DO C4 À 00 8D 52 CO 8 
0348- 55 CO 60 





Programme 


MOITIE 1 > MOITIE 2 
Lisa 2.5 


i . 

2 ÉNARRRNARRENNERRNENNEN REX 
3 ;+* *% 
4 ;x CE PROGRAMME TRANSFERE +* 
S ;x*x LA MOITIE DE LA PAGE 2 * 
é ;% SUR L'AUTRE MOITIE # 
PSY É 
8 5 262626 26 26 D DE DE 26 26 6 DE DE DE DE DE DE 26 6 DE DE DE 26 EE 
9 3 

10 ; 

11 HPOSN EQU $F411 

12 HBASL EP2Z $26 

13 HBASN EP2 $27 

14 ; 

15 ORG +300 

16 s 

17 JMP DEBUT 

18 

19 LIGNE DFS 1 

20 DEP DFS 1 

21 ARR DFS 1 

225; 

23 DEBUT LDA #$00 

24 STA LIGNE 

252; 

26 CHERCHE LDA LISNE 

27 LDX #$00 

28 tDY ##00 

29 JSR HPOSN 

30 ; 

31 LDA ##$00 

32 STA DEP 

33 CLC 

34 ADC #!20 

35 STA ARR 

36 ; 

37 BOUCLEt LOY BEP 

38 LDA CHBASL) ,Y 

39 EDY ARR 

4û STA {HBASE) ,Y 

41 LDA 4500 

42 LOY DEP 

43 STA CHBASL),Y 

44 INC DEP 

45 INC ARR 

46 LDA DEP 

47 @1P #'20 

48 BNE BOUCLE 

49 ; 

50 INC LIGNE 

51 LDA LIGNE 

52 CMP #!192 

53 BNE CHERCHE 

54 RTS 

55 END 
Récapitulation 


MOITIE 1 -> MOITIE 2 


0300- 4C 06 03 CO 14 28 A9 00 
0308- BD 03 03 AD 03 03 A2 00 


Pers n° 13 


0310- AG 00 20 1f F4 AS 00 8b 
0318- 04 03 18 49 14 8D 05 03 
0320- AC 04 03 Ri 26 AC 05 03 
0328- 91 26 A9 00 AC 04 03 91 
0330- 26 EE 04 03 EE 05 03 AD 
0338- 04 03 C9 14 DO E2 EE 03 
0340- 03 AD 03 03 C7 CO 80 €3 
0348- 60 


Programme COPYLEFT 
Big Mac 


REA AE EEE DE JE DE DE DE DEEE DE DEN EEE DE D DE DEEE NE EE 
x COPYLEFT > 
266 JE JE JE DE DE DE DE DE DE JE JE DE DE DE DE DE DEN DE DE DE DE DE DE DE DE JE DE JE HE NE 


H 
2 
3 
4 
S * Ref: Pom's #3 p.53 
6 
2 
8 
9 


NOLIGN = #00 
NE = so1 
LIGNP = $02 
10 SAUX = $0a 
11 SENS = $05 
12 LIGN = #26 
13 HLIGN = $E2 
14 HPAG = $Eé 
15 HPOSN = $F4it 
16 HIRESI = #C050 
17 HIRES2 = $C052 
18 HIRES3 = 40057 
19 PAGEI = #C054 
20 PAGE2 = $c0ss 
21 
22 ORG $300 
23 
24 JMP  DEBUT 
25 
26 PAGE HEX 20 
27 SEQU DFB 0,0,0,0,0,0,6,0,0,0 
28 F8 0,0,0,6,0,0,0,6,0,0 
29 
30 DEBUT = * 
31 LDA HIRESI 
32 LDA HIRES2 
38 1DA HIRES3 
34 
35 EDX 40 
34 STX  SAUX 
37 
38 LA PAGE! 
39 LDS PAGE 
40 CMP  ##40 
41 BNE BOUCLE 
42 LDA PAGEZ 
43 BOUCLE  LOA #e 
4 STA NOLISN 
45 STA  HLIGN 
dé JSR HPOSN 
47 
ae LDX SAUX 
49 INC  SAUX 
se INC  SAUX 
si LDA SEQU,X 
s2 BEe FIN 
53 STA NB 
Sa INX 
55 LDA SEQU,X 
sé STA SENS 
57 
5B 8OUCL2 LOA SENS 
59 BPL  BOUCL3 
6e LA #192 
éi STA NOLIGN 
62 
63 BOUCI3 USR TOUR 
64 DEC NB 
65 LDA NB 
éé BE BOUCL2 
67 
68 JMP BOUCLE 
69 
76 TOUR JSR CLIGN 
71 LOY ##27 
72 TOURI LOA  CLIBN),Y 
73 STA  CLIGNP) ,Y 
74 REY 
75 BPL TOURI 
76 
77 LDA NOLISN 
8 BE TOUR 
79 RTS 
80 
BI CLIGN LOA LIGN 
82 STAR LIGP 
83 LDA LIGN+i 


84 STA 1 GNP+1 
85 
8é LDA NOEISN 
87 CLC 
88 ABC SENS 
89 STA NOLIGN 
70 œP  #192 
91 BNE LIGNI 
ÿ2 LDRA #0 
3 STA NOLIGN 
P4 LION! LDR PAGE 
95 STA  HPAG 
v6 LO#  HOLIGN 
97 STA  HLIGN 
$8 JSR  HPOSN 
99 RTS 

100 

101 FIN RTS 

102 END 


Récapitulation COPYLEFT 
Pom’s 3 p. 53 ou 
Recueil 1 p. 140 


0300- 4C i8 03 20 00 00 00 00 
0308- 00 00 00 00 00 00 00 88 
0310- 00 00 00 00 00 00 00 00 
0318- AD 50 CO AD 52 CO AD 57 
0320- C0 A2 00 86 04 AD 54 CO 
0328- AD 03 G3 C9 40 DO 03 AD 
0330- 55 CO A9 00 85 00 85 E2 
0338- 20 11 F4 A6 04 Eé 04 Es 
0340- 04 BD 64 03 F0 51 85 01 
0348- E8 BD 04 03 85 0S AS 05 
0350- 10 04 A9 C0 85 00 20 62 
0358- 03 Cé Of AS 01 DO EF 4C 
0360- 32 03:20 73 03 AG 27 Bi 
0368- 26 91 02 88 10 F9 AS 00 
0370- DO F$# 60 ÀS 26 85 02 AS 
0378- 27 85 03 AS 00 18 65 85 
0380- 85 00 CS CO PO 04 A9 00 
0388- 85 00 AD 03 03 85 Eé AS 
039#0- 00 85 E2 20 11 F4 60 60 


Programme 

HGR 2 -> HGR 

Lisa 2.5 
1 3 266266 XXE DD DE DE DE DE DE DE 26 DE DE DE DE DE DE HE DEN 
2 ;*% æ 
3 x CE PROGRAMME TRANSFERE *# 
4 ;5# LA PAGE GRAPHIQUE 1-22 *# 
si 3 * # 
6 526 26 26 26 26 26 26 DE DE 6 DE DE DE DE DE DE DE DE DE HE DE DE KDE HE 
245 

8 3 

9 ORG $309 

10 ; 

15 DEP EP2 $é 

12 ARR EPZ 58 

13 ; 

14 DEBUT LDA #500 

15 STA DEP 

16 STA ARR 

17 LDA #540 

18 STA DbEP3+i 

19 LDA K$20 

20 STA ARR+i 

21 ELDX #!32 

22 EDY #$FF 

23 SUIVANT EDA (DEP)I,Y 

24 STA {ARR) ,Y 

25 DEY 

26 BNE SUIVANT 

27 BLOCSUI INC BEP+]i 

28 INC ARR+1 

29 DEX 

30 BMI FIN 

31 BENE SUIVANT 

32 FIN RTS 

33 END 


EE 
SÉRIE ES ITS ET SRAT MEN LT ET ER EES TS 


SE 











Récapitulation 
HGR 2 — HGR 


0300- A9 00 85 06 85 08 A9 AU 
0308- 85 07 A9 20 85 09 A2 20 
0310- AG FF B1 06 ?i 08 88 DO 
0318- F9 Eé 07 Eé 09 CA 30 02 
0320- DO FC 40 


Programme 
HGR + HGR 2 -> HGR 2 
Lisa 2.5 


1 3 
25262626 26 36 262626 26 JE HE DE DE DE DE DE DE DE DE DE IE DE IE JE XIE H 
3 ;+#% #% 


4 ;x CE PROGRAMME SUPERPOSE  * 
5 3% LA PAGE 1 SÛR LA PAGE 2 * 
6 3% *% 
75 DD DD DE DE DD DE DE IE DE DE DE HE DE DIE DE DE DE IE IE IE He 
8 
9 


RG $300 
E0" 
1i Pi EPZ $6 
12 P2 EP2 58 
13-; 
14 LA h$66 
15 STA P1 
1é STA P2 
17 YAY 
18 TAX 
19 LDA ##$40 
20 STA P2+1 
21 LDA #$20 
22 STA Pi+i 
23: 
24 OCT LA <P10,Y 
25 RAA (P2,Y 
26 STA <P2),Y 


27 INY 

28 BNE 6CT 
29 INC Pi+1 
30 INC P2+7} 
31 LDY ##$00 
32 INX 

33 CPX #133 
34 BNE OCT 
35 RTS 

36 END 
Récapitulation 


HGR + HGR 2 — HGR 2 


0200- À9 00 85 064 85 Q8 A8 M 
0308- A9 40 85 09 A9 20 85 07 
0310- 81 04 ff 08 91 08 C8 bO 
0318-— F7 Eé 07 Eé 09 À9 00 E8 
0320+ EC 21 BO EC 48 





Initiation à l’assembleur (3) 


Gérard Michel 


Chose promise. Le temps semble 
maintenant venu de préciser la na- 
ture du ‘dernier résultat” maintes 
fois rencontré dans les deux premiers 
articles, notamment au sujet des ins- 
tructions de test et branchement 
BEQ et BNE. 

Au travers des problèmes déjà traités, 
il ressort que le ‘dernier résultat” se 
comporte en fait comme un indica- 
teur caractéristique du résultat de la 
dernière opération effectuée par le 
processeur. Ainsi, après LDA $18, 
nous étions capables de savoir si l’ac- 
cumulateur contenait O ou non. en 
testant la valeur du ’’dernier résultat” 
par BEQ ou BNE. De même, après 
CMP $25, le ’dernier résultat” pou- 
vait nous indiquer si l'accumulateur 
et l'adresse $25 contenaient la même 
valeur; dans laffirmative, BEQ pro- 
voquait un branchement mais le pro- 
gramme continuait en séquence dans 
le cas contraire. 

Avant d'aller plus loin sur cette no- 
tion ”d’indicateur”’, nous devons tou- 
tefois examiner rapidement la façon 
dont sont représentées les informa- 
tions pour le processeur. 


La représentation des 
nombres 


Pour votre Apple, la quantité écono- 
mique d’information c'est l’octet. Ce 
n'est pas pour autant son langage 
naturel” puisque, comme chacun 
sait, l'ordinateur ne dispose que de 
nombres binaires (bits) pour expri- 
mer sà pensée et comprendre la 
vôtre 

Un octet se compose donc de huit 
bits, soit huit chiffres ne pouvant 
prendre chacun que la valeur O ou 1. 
De ce fait. l'octet peut représenter 


Se 
AERERSERNEEE 
FREE 


52 


une valeur comprise entre 
*00000000” et 11111111". Sans 
entrer dans les détails de l'algèbre bi- 
naire, rappelons que le nombre 
11111111” se convertit en décimal 
de la façon suivante, en traitant les 
bits de la droite vers la gauche (du 
bit O vers le bit 7) : 


(14(2 0)) + (1x(2 1}) + (1*x(2 2) 
+  (14x(2 3)) +. (1x(2 4), + 
{14(2 5)) + (1x(2 6)) + (1x(2 7)) 
=1+24+4 +8 + 16 + 32 +64 
+ 128 = 255 


Ceci vous explique en outre pour- 
quoi nous avons pu jadis affirmer 
que la valeur d’un octet, et donc 
d'un registre ou d'une adresse-mé- 
moire, devait se situer entre O et 255 
en décimal. 


Mais une question se pose mainte- 
nant: et l'hexadécimal, dans tout 
cela ! Rassurez-vous, il n’est pas loin. 
Comme un octet peut également 
s'écrire au moyen de deux chiffres 
hexadécimaux, il semble naturel de 
supposer que le chiffre de gauche 
correspond aux quatre bits de gau- 
che et celui de droite aux quatre bits 


de droite. Ainsi 11111111” 
”1111” 1111” = ”1+2+4+8” 
*142+4+8"” = Jo #15” == nE® 


°F” = $FF. et la boucle est bou- 
clée. Cette explication nest sans 
doute pas très mathématique. mais 
elle suffira pour guider la suite du 
propos. 


En effet, lors de l'examen de lins- 
truction BEQ, nous avons évoqué la 
possibilité de déplacements ’’néga- 
tifs” vers le haut du programme en 
disant simplement que $FF corres- 
pondait à —1 en décimal, $FE à —2, 
et ainsi de suite jusqu’à $80 pour 


—128. Il s'agit donc de savoir par 
quel miracle un même nombre peut 
valoir à la fois +255 et —1! 
L'explication réside dans la pauvreté 
de loctet en tant que quantité d’in- 
formation, puisqu'il faut représenter 
au moyen de huit bits seulement des 
nombres positifs ET négatifs La 
convention adoptée en la matière 
confère au bit le plus à gauche (bit 
7) le rôle particulier de “bit de 
signe” : lorsque ce bit vaut 0, le 
nombre est considéré comme positif, 
et inversement. un nombre est consi- 
déré comme négatif lorsque son bit 7 
vaut 1. 

Les nombres positifs vont donc de 
700000000" à “01111111”. soit O à 
+127 ou encore $00 à $7F, tandis 
que les nombres négatifs vont de 
710000000" à “11111111”. soit 
—128 à —1 ou encore $80 à $FF. 
L'ambiguïté provient finalement de 
ce que le signe ne présente d'intérêt 
que si l'on doit en tenir compte pour 
les besoins du programme (merci 
Monsieur de La Palice). $FF vaut 
teujours 255. évidemment, mais si 
l'on doit manipuler la valeur —1, i 
faut savoir que le processeur la code 
également au moven de $FF. 


Mais, direz-vous, à quoi bon se fati- 
guer avec des nombres négatifs sur 
un octet puisque la représentation 
des nombres réels réclamera inévita- 
blement un système plus complexe 
de plusieurs octets et une codification 
du signe indépendante de celle de la 
valeur ? Certes, mais il n'en reste pas 
moins qu’il faut pouvoir effectuer des 
soustractions sur des nombres d'un 


seul octet, et comment calculer 
5-4” si lon ne sait calculer 
5+(-4)". 
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Additions et 
soustractions en binaire 


Les règles de l'addition sont simples : 
0+0=0 

1+0=0+1=1 

1 + 1 = 0 avec une retenue de 1 

1 + 1 + (retenue) = 1 avec retenue 


Quelques exemples : 

60000001 + 00000001 
00000010 

00100000 + 00111111 
01011111 

11111111 + 00000001 
00000000 avec retenue 
rieure” de 1 


Il 


exté- 


Dans le dernier exemple, la retenue 
sort de loctet. Nous n'avons pas à 
en tenir compte pour le résultat arith- 
métique de notre calcul sur un octet 
($FF + $01 = $00 de même que 9 
+ 1 = O0 en décimal si l’on ne 
compte que sur un chiffre), mais 
nous verrons plus loin que le proces- 
seur censerve la trace de ce neu- 
vième bit extérieur. 


Abordons maintenant le problème 
plus délicat des soustractons. 

Pour calculer 5-3, nous devons 
ajouter —3 à 5. et donc déterminer 
tout d’abord la représentation de —3. 
La méthode utilisée s'appelle le 
“complément à 2” et suppose deux 
étapes dont l’une. baptisée ”’complé- 
ment à 1”, consiste à remplacer tous 
les 1 d’un octet par des 0 et inverse- 
ment tous ses O par des 1 

3 = 00000011 

Complément à 1 de 3 =11111100 
On ajoute 1 à la valeur précédente : 
complément à 2 de 3 = 11111101 


notre soustraction donne donc finale- 

ment : 

00000101 + 11111101 = 
00000010 avec une retenue exté- 
rieure dont on ne tient pas 
compte. On vérifie bien que 5-3 


Calculons maintenant (—5) + (—3). 

5 = 00000101, d'où complément à 

1:11111010 

—5 = 11111011 

(9) ESS) = AIO + 

11111101 = 11111000 avec rete- 

nue de 1 

11111000 est un nombre négatif (bit 

7 à 1), mais quel nombre ? Pour le 

savoir, faisons l'inverse du complé- 

ment à 2, en retirant d'abord 1 à 

notre nombre, ce qui revient à lui 

ajouter —1. soit $FF = 11111111: 

11111000 + 11111111 = 
11110111 

Complément à 1 de 11110111 = 

00001000 = 1x*(2 3) = 8 

11111000 est donc égal à —8 (com- 

piément à 2 de +8). 

Üne autre méthode pour déterminer 

à quel nombre négatif en décimal 

correspond un octet dont le bit 7 est 

à 1 consiste à le convertir tout 
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d’abord en valeur absolue (sans tenir 
compte du signe), puis à retirer 256 
à la valeur ainsi obtenue lei, 
NE — 248, et 248-256 = 
Tout semble par conséquent aller 
pour le mieux dans le meilleur des 
mondes possibles. 


Hélas. ce n'est qu’une apparence fra- 
gile ! Calculons par exemple 64+64 : 
64 = 01000000 

64 + 64 =01000000 + 01000000 
= 10000000 

10000000 est un nombre négatif. 
—128 plus précisément, et donc 
64+64 = —-128! 


Surprenant, n'est-ce pas ? Mais vous 
aurez noté que notre calcul est arith- 
métiquement juste car, si l’on ne se 
préoccupe pas du signe. 10000000 
vaut également +128, ce qui est plus 
convenable. Le résultat n’est qu'algé- 
briquement faux. en raison de la re- 
tenue qui s'est opérée du bit 6 sur le 
bit 7 en provoquant un changement 
de signe intempestif, Ce phénomène 
est baptisé débordement” 


Autre exemple de débordement 
—127 + -62 = 10000001 + 
11000010 = 01000011 avec rete- 
nue extérieure. 01000011 vaut +67 
en décimal, d’où résultat erroné. 
Mais raisonnons une fois encore en 
négligeant le signe : 

10000001 = 129 = $81 

11000010 = 194 = $C2 

10000001 + 11000010 = 129 + 
194 = $81 + $C2 = 323 = $143. 
soit un résultat sur deux octets. avec 
poids fort de $01 (256) et poids fai- 
ble de $43 (67), En ne tenant 
compte que de l’'octet de poids fai- 
ble, la valeur +67 est donc correcte. 
En d'autres termes, le débordement 
ne conduit réellement à des résultats 
faux que si le signe du résultat est 
pertinent pour l’utilisation qui doit 
être faite de ce résultat. C’est pour- 
quoi vous avez pu trouver dans 
Pom's de nombreux programmes en 
assembleur dans lesquels étaient ef- 
fectuées des additions et des sous- 
fractions sans que le programmeur 
semblât se soucier de l'éventualité 
d'un débordement. Si nous en avons 
parlé ici, c'est surtout parce que, au 
même titre que la ‘retenue exté- 
rieure” ou le “dernier résultat = 0”. 
le débordement fait partie de ces in- 
dicateurs caractéristiques que nous 
allons maintenant examiner plus en 
détail. 


Le registre d'état du 
microprocesseur 


Comme les autres registres (accumu- 
lateur ou registres d’index X et Y), le 
registre d'état peut être considéré 
comme une variable interne au mi- 
croprocesseur. Îl s'agit donc d'un 
octet, dont le programmeur n’a 


jamais à préciser le nom ou l'empla- 
cement mémoire, que le micropro- 
cesseur gére automatiquement et au- 
quel certaines instructions de 
l'assembleur font directement réfé- 
rence sous le nom P (au même titre 
que À pour l'accumulateur). 

Mais chaque bit du registre d'état 
revêt une signification particulière, 
alors que les autres registres sont 
plus généralement manipulés au ni- 
veau de l'octet. Plus précisément. le 
registre d'état doit refléter "l'état” du 
microprocesseur à l'issue de la der- 
nière opération significative effectuée 
et, de fait. c'est lui qui nous rensei- 
gne sur les caractéristiques du ‘der- 
nier résultat”. Chaque bit du registre 
d'état joue ainsi le rêle d'indicateur. 
en ce qu'il conserve le statut de la 
dernière opération vis-à-vis des critè- 
res donnés comme significatifs pour 
la machine (dernier résultat nul, rete- 
nue externe. débordement dans les 
calculs. .). 


Sur les huit bits de l'octet composant 
le registre d'état. sept sont réellement 
pertinents pour le processeur de 
l'Apple : 


e Bit 7: indicateur de signe (baptisé 
N dans la littérature). Ce bit vaut 
O si la dernière opération donne 
un résultat positif et 1 dans le cas 
contraire (le bit 7 de l'octet conte- 
nant le résultat est alors à 1). 
Notons dès maintenant que les 
bits d'état sont positionnés selon la 
même méthode que pour les opé- 
rateurs logiques. 1 veut dire 
vrai” (N vaut 1 si le dernier résul- 
tat est négatif) et O veut dire 
faux” 

e Bit 6: indicateur de débordement 
(baptisé V): vaut 1 si la dernière 
opération provoque un déborde- 
ment (voir ci-dessus l'additon 
64+64) et 0 sinon 

e Bit 5 inutilisé. 

e Bit 4: indicateur de ”’BREAK". 
Nous en préciserons la fonction 
dans un article ultérieur. 

e Bit 3: indicateur ‘décimal codé 
binaire”, dont nous réserverons 
également l'analyse pour nos pro- 
chaines rencontres. 

e Bit 2: indicateur ‘interruption’, 
avec même remarque que ci- 
dessus car à chaque jour suffit sa 
peine. 

e Bit 1: indicateur ‘’zéro” (baptisé 
2). Ce bit vaut 1 lorsque la der- 
nière opérat:on donne un résultat 
nul et O dans le cas contraire. 
Vous subodorez donc déjà que cet 
indicateur Z doit avoir quelque 
rapport avec nos instructions BEQ 
et BNE {ne vous découragez pas 
pour autant si vous ne subodorez 
tien... ). 

e Bit O: indicateur de retenue (C 
pour les intimes !). Il vaut 1 lors- 
que la dernière opération provo- 
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que une retenue et Ü sinon. Nous 
avions dit précédemment que le 
processeur pouvait tenir compte 
des retenues ‘extérieures’ occa- 
sionnées par des opérations sur 
des nombres codés en un seul 
octet, au travers d'un ’neuvième” 
bit. Vous ne serez donc pas surpris 
d'apprendre que c'est l'indicateur 
C qui joue ce rêle de neuvième 
bit: ne vaut-il pas justement 1 
lorsqu'une retenue sort de l’octet 
et qu'un 1” doit par conséquent 
être stocké quelque part dans Fhy- 
pothèse où l'opération porterait 
sur plus d’un octet (songez à ce 
que vous faisiez à l’école pour ad- 
ditionner 9 et 1 : ‘je pose 0 et je 
retiens 1” Le processeur retient 
tout simplement 1 dans le bit C de 
son registre d'état). 


Le langage assembleur autorise deux 
types de manipulation sur les bits du 
registre d'état: test et branchement 
(voir BEQ et BNE), mais aussi posi- 
tionnement forcé” de certains indi- 
cateurs. Nous examinerons dans l’or- 


dre ces deux types d'instructions. 
Test et branchement 


Nous limitons pour l'heure notre 
propos aux indicateurs N (signe), V 
(débordement), Z (zéro) et C (rete- 
nue). 


Deux des instructions de test et bran- 
chement nous sont d'ores et déjà 
connues : BEQ provoque un bran- 
chement si dernier résultat = 0”, ce 
qui revient à dire que le bit Z vaut 1 
(’dernier résultat = 0” est vrai), 
tandis que BNE provoque un bran- 
chement si ’dernier résultat <> 0” 
{bit Z vaut O). 

Il existe de même un couple d'ins- 
tructions pour chacun de nos trois 
autres bits du registre d'état. 


Bit N (signe) 


e BMI (30) : branchement si négatif, 
c'est-à-dire si le bit N vaut 1. 

e BPL (10): branchement si positif 
(bit N vaut 0). 


Bit V (débordement) 


e BVS (70): branchement si ’’der- 
nier résultat provoque un débor- 
dement” (bit V = 1). 

e BVC (50) : branchement si pas de 
débordement (bit V = O). 


Bit C (retenue) 


e BCS (BO) : branchement si ”’der- 
nier résultat provoque une rete- 
nue” (bit C = 1). 

e BCC (90) : branchement si pas de 
retenue (bit C = O). 


Bit Z (zéro) 


BEQ et BNE sont, bien sûr, les deux 
instructions concernées. 





Les règles du branchement sont les 
mêmes pour toutes les instructions ci- 
dessus que pour BEQ et BNE: ïi 
s’agit toujours d’un déplacement de 
X octets vers le haut ou le bas selon 
la valeur donnée à la suite du code 
de l'instruction. Rappelons en outre 
que c'est le microprocesseur qui po- 
sitionne tout seul ses indicateurs N, 
V, Zet C en fonction du travail qui 
lui est demandé et que nous nous 
contentons, par des instructions du 
type B.. de tester la valeur de ces 
indicateurs après les opérations, afin 
de décider de la suite des traitements 
à effectuer. 


Puisque nous parlerons moins dans 
la suite de l'article de l'indicateur V 
que des autres, précisons qu'il peut 
servir notamment à corriger des ré- 
sultaw pour lesquels le signe est si- 
gnificatif (ainsi, BVS devrait alors en- 
traîner une action correchice sur le 
signe du résultat - modification du bit 
7), et qu'il peut également servir de 
drapeau” dans les sous-routines (si, 
par exemple, le bit V n’a aucune 
chance d'être modifié à l'intérieur 
d'une telle routine, on peut lui don- 
ner la valeur O ou 1 avant l'appel de 
la sous-routine, selon le type d'appel, 
et orienter ensuite les traitements par 
des tests BVC ou BVS). 


”Forcer” la valeur des bits d'état 


Le terme ”forcer” est fréquemment 
utilisé lorsque l'on traite de langage 
machine ou d’assembleur, pour indi- 
quer que l’on impose à certaines va- 
riables caractéristiques des valeurs 
qui ne sont pas nécessairement celles 
que leur donne le processeur en 
fonction des opérations effectuées. 
C'est bien le terme qui s'applique ici 
puisque le programmeur peut mani- 
puler par certaines instructions la va- 
leur des bits du registre d'état. et ce 
indépendamment de toute autre opé- 
ration. 


Bit C (retenue) 


CEC (18) : met à Ole bit C. 
SEC (38) : met à 1 le bit C. 


Bit V (débordement) 
CLV (B8) : met à 0 le bit V. 


Ce sont là les seules instructions ”’di- 
rectes’ dont nous disposons pour 
forcer les bits du registre d'état (du 
moins les quatre bits que nous exa- 
minons pour l'instant). On peut ce- 
pendant manipuler les autres bits par 
des moyens indirects. Ainsi LDA #$0 
met le bit Z à 1 et N à O (dernier 
résultat nul mais positif), LDA #$FF 
met Z à O0 et N à 1 (dernier résulat 
différent de O et négatif, puisque $FF 
= 11111111, avec bit 7 à 1, ce qui 
caractérise pour le processeur un 


nombre négatif) De même, ajouter 
#$40 à #$40 met à 1 le bit V ($40 
= 64 = 01000000, 01000000 + 
01000000 = 10000000, d'où rete- 
nue du bit 6 sur le bit de signe. ce 
qui positionnera dans le cas présent 
l'indicateur de débordement à 1 en 
raison de l'erreur au niveau du résul- 
tat: 64 + 64 — —128). 


Mais, une fois encore, un murmure 
court dans la foule : ajouter #$40 à 
#$40. certes, mais comment ? Voici 
la réponse. 


Addition d’un octet à un 
autre 


Le microprocesseur de votre Apple 
dispose d’une instruction pour ajou- 
ter une valeur codée sur un octet à 
une autre valeur sur un octet Le 
code mnémonique en est ADC . elle 
ajoute à l'accumulateur la valeur 
donnée après ADC {soit sous forme 
d’un nombre - #$10 par exemple - 
soit sous forme d’une variable définie 
par l'un des modes d'adressage que 
nous avons déjà étudiés) Mais elle 
ajoute en outre au résultat ainsi ob- 
tenu la valeur du bit C (0 ou 1). 
Pourquoi ? Tout simplement pour 
permettre les additions sur deux 
octets. Voyons tout d'abord les diffé- 
rents formats de l'instruction ADC 
avant de revenir sur ce point. 


ADC nombre = ADC #$XX = 69 
RX (où XX désigne un nombre de 
deux chiffres hexadécimaux) 

ADC contenu d’une adresse en page 
zéro = ADC ADR = ADC $aa = 65 
aa (par exemple. 65 18) 

ADC contenu d'une adresse quel- 
conque = ADC ADR = ADC $aaaa 
= 6D octet bas/octet haut 
ADC ADRX = ADC $aaaa.X 
octet bas/octet haut 

ADC ADRY = ADC $faaaa,Ÿ = 79 
octet bas’octet haut 

ADC adresse page zéroX — ADC 
ADRX = ADC $aaX = 75 adresse 
ADC (ADR X) = ADC ($aa.X) = 61 
adresse 

ADC (ADR).Y = ADC ($aa),Y = 71 
adresse 


7D 


Notez bien que c’est toujours à l'ac- 
cumulateur que l'instruction ADC 
ajoute quelque chose, le résultat de 
l’addition étant lui aussi stocké auto- 
matiquement dans l'accumulateur. 
Puisque cette addition intègre égale- 
ment le bit C du registre d'état, il 
faut veiller à ce que ce dernier soit 
bien à G avant ADC si l’on ne veut 
prendre en compte que la valeur de 
l’'accumulateur et celle de l'octet qui 
lui est ajouté Comme ïil n'est pas 
toujours facile de savoir comment 
sont positionnés les indicateurs du re- 
gistre d'état à l'issue des diverses ins- 
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tructions exécutées précédemment, 
l'instruction CLC peut rendre ici de 
grands services. 

Supposons ainsi que l'on veuille 
ajouter au contenu de l'adresse $18 
celui de l'adresse $DD60 et conser- 
ver le résultat en $18. Le programme 
réalisant ce traitement serait le sui- 
vant : 


LDA $18 (A5 18) 

CLC (18) 

ABC $DD60 (6D 60 DD) 

STA $18 (85 18) 

L'instruction CLC pourait être sup- 
primée si nous étions sûrs de la va- 
Jeur O du bit C avant l'addition. 


L'exécution de ADC fournit un ‘der- 
nier résultat” significatif pour le pro- 
cesseur, et le registre d'état se trouve 
donc reconfiguré en fonction de ce 
dernier résultat. Sont affectés par 
l'opération les bits : 

N : mis à 1 si le résultat de l’addit'on 
est négatif (bit 7 de l’accumulateur à 
1 après ADC), à 0 sinon. 

V: mis à 1 s’il v a débordement. à 0 
sinon. 

Z. mis à 1 si l'addition donne un ré- 
sultat nul, à O sinon. 

C: mis à 1 si l'addition des deux 
nombres provoque une retenue exté- 
rieure, à O sinon. 


Cette mise à jour de la retenue C 
permet d'effectuer des additions avec 
des nombres de deux octets, sur le 
même principe que pour les nombres 
écimaux (9 + 1 = O, et la retenue 
de 1 vient s'ajouter au chiffre des di- 
zaines). Reprenons notre exemple 
précédent, en supposant cette fois 
que la valeur à laquelle on doit ajou- 
ter le contenu de l'adresse $DD60 
est stockée en $18 (poids faible) et 
$19 (poids fort). Deux solutions sont 
envisageables pour réaliser l’opéra- 
ton. 


Programme 1 


LDA $18 (AS 18) 

CEC (18) 

ADC $DD60 (6D 60 DD) 
STA $18 (85 18) 

LDA $19 (AS 19) 

ADC #$0 (69 00) 

STA $19 (85 19) 


Après avoir ajouté à l'octet d'adresse 
$18 la valeur de $DD60 et stocké le 
résultat en $18, on charge l’accumu- 
lateur avec la valeur de $19. On ne 
sait pas, a priori, si le premier ADC a 
produit ou non une retenue, mais on 
sait en revanche que le bit C est po- 
sitionné en conséquence. En ajoutant 
alors O à l'accumulateur, sans tou- 
cher à C, on lui ajoute en fait 0O+0 
s'il n'y a pas de retenue, ou O+1 s’il 
y en à une. La valeur de l’octet de 
poids fort remise ensuite en $19 tien- 
dra donc bien compte du résultat 
complet de l'addition effectuée sur 
l'octet de poids faible. 
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Si, par exemple, $18 contient #$FE 
et $19 #$03. on trouvera dans ces 
deux adresses #$FF et #$03 après 
l'opération si $DD60 contient #$01. 
mais on y trouvera #$00 et #$04 si 
$DD60 contient #$02. 


Programme 2 


LDA $18 (A5 18) 
CLC (18) 
ADC $DD60 (6D 60 DD) 
STA $18 (85 18) 
BCC suite du programme (90 02) 
INC $19 (E6 19) 
suite du programme 


On utilise cette fois la possibilité qui 
nous est offerte de tester le bit C 
après l'addition sur l'octet de poids 
faible. Si C=8, il ny a pas de rete- 
nue, l’octet de poids fort est donc 
correct et BCC nous amènera direc- 
tement à la suite du programme. Si 
C=1. en revanche, BCC ne provo- 
quera pas de branchement et. en in- 
crémentant $19 avant de paster à la 
suite, on aura bien rétabli la valeur 
correcte du poids fort en fonction de 
la retenue qui s'y ajoute. 

Cette solution. plus élégante. plus 
courte et plus rapide, sera préférée à 
la précédente. 


Si l'on veut enfin ajouter deux nom- 
bres codés en deux octets (le premier 
en $18-$19 et le second en $DD60- 
$DD61, par exemple, toujours dans 
lordre poids faible/poids fort) en 
gardant le résultat dans le premier, le 
programme devient 


LDA $18 (AS 18) 

CLC (18) 

ADC $DD60 (6D 60 DD} 

STA $18 (85 18) 

LDA $19 (AS 19) 

ADC $DD61 (6D 61 DD) 

STA $19 (85 19) 

Ce programme ressemble fort au 

programme ÎL ci-dessus, mais cette 

fois on additionne bien les deux 

poids forts, plus la retenue éventuelle 

DEEE de l'addition des poids fai- 
les. 


Soustraction d’un octet 
à un autre 


L'instruction équivalente à ADC pour 
la soustraction est SBC. Elle retire de 
l'accumulateur la valeur donnée 
après SBC (nombre ou contenu 
d'une adresse), mais aussi l'opposé 
du bit C, c'est-à-dire O si C=1 et 1 si 
C=@. Le résultat est stocké dans l'ac- 
cumulateur. 


Cette prise en compte de l’opposé 
de la retenue doit évidemment per- 
mettre les soustractions sur deux 
octets. 


Considérons par exemple deux 
octets quelconques O1 et O2, dont 
on sait simplement que OZ est supé- 


rieur à O1 (sans se préoccuper de 
signe). Nous appelerons B le bit de 
rang le plus élevé qui est à 1 dans 
O2 ‘et à 0! “dans. Ol", “(si 
O1=00010011 et O2-=00101111, B 
est le bit de rang 5. ie. le troisième 
en partant de la gauche), et nous dé- 
signerons par R le rang correspon- 
dant (R=5 dans notre exemple). Sur 
la gauche de R, tous les bits de OI 
et O2, s'il en reste (si R < 7), ont la 
même valeur au même rang, O0 ou 1. 
On veut maintenant calculer O1 
—O2. Pour ce faire on calcule 
d'abord le complément à 1 de O2, 
que nous noterons C1-O02. Dans C1- 
O2, B est donc à 0. Lorsqu'on 
ajoute ensuite 1 (00000001) à C1- 
O2 pour obtenir le complément à 2 
de O2, noté C2-O2. deux cas sont 
envisageables : 


e B reste à O. Dans l'addition de 
C2-02 à OL pour calculer 
O1-O2, on a donc deux bits à @ 
au rang R qui ‘’absorberont” iné- 
virablement toute retenue qui se 
propagerait à partir de l'addition 
des bits de rang inférieur à R (0 + 
Ô + retenue est au plus égal à 1, 
mais sans retenue à reporter à 
gauche). Quant aux bits situés à 
gauche de R, s'ils étaient à 1 dans 
O2. et donc dans Ol, ils sont à 0 
dans C2-O2: et s'ils étaient à O 
dans O2, et donc dans OI, ils 
sont à 1 dans C2-02. A gauche 
de R. on ne peut donc ajouter 
que des 0 à des !. sans retenue 
venant de la droite (il ne peut v 
en avoir au rang R) et, par consé- 
quent, il ne peut y avoir de rete- 
nue à l'extérieur de l'octet repré- 
sentant le résultat de O1-O2. 

Exemple : 

O1 = 00101011 (43 en décimal) 

O2 = 01000100 (68): B est le bit 

de rang 6 

C1-O2 = 10111011 

C2-O02 = 10111100 (B reste à 0) 

O1 + C2-02 = OO101011 + 

10111100 = 11100111 (—25) sans 

retenue. 


e B repasse à 1. Ceci n'est possible 
que si tous les bit situés à droite 
de R sont à 1 dans C1-O2 ou si B 
est de rang 0. Quand on ajoute 
C2-O02 à OI. on a donc. au rang 
R, un 0 dans @1 et un 1 dans C2- 
O2. Une retenue pourrait ainsi se 
propager au-delà de R, si elle ve- 
nait de l'addition des bits situés à 
droite de R. Mais, si tous les bits 
en question étaient à 1 dans C1- 
O2, ils sont nécessairement à 0 
dans (C2-O2 (par exemple, 
00001111 +  O00868001 — 
00010800). À droite de R, on 
n’ajoute donc que des O à autre 
chose (0 ou 1) et il ne peut y 
avoir de retenue se décalant vers 
la gauche jusqu'au rang R {dans le 
cas où B est de rang 0, le pro- 
blème ne se pose même pas: on 


à | 


LEE 


HE 


LOS ASE SE EN GE CT 
RE  __ _* 


55 


| 


ajoute 1 à O au rang O sans rete- 
nue). Pour les bits de rang supé- 
rieur à R, même remarque que ci- 
dessus: là encore, il ne peut y 
avoir de retenue extérieure dans le 
résultat de O1-O2. 

Exemple : 

O1 = 00101011 

O2 = 01008000 (64): B est le bit 

de rang 6 

C1-02 = 10111111 

C2-02 = 11000000 (B passe à 1) 

O1 + C2-O2 = 00101011 + 

11000000 = 11101011 (—21) sans 

retenue. 


En conclusion, après la soustraction 
d’un octet O2 à un octet O1 qui lui 
est inférieur. il n'y a jamais de rete- 
1 extérieure et C est donc toujours 
à O. 


Examinons maintenant le cas inverse, 
la soustraction O1-O2 lorsque O2 
est inférieur à O1. B est le bit de 
rang le plus élevé (R) qui est à O 
dans O2 alors que le bit de même 
rang est à 1 dans O1. Dans C1-O2, 
B est donc à 1 et, pour C2-O2, deux 
hypothèses sont toujours possibles : 


e B reste à 1. Dans l'addition O1 + 
C2-02, on trouve au même rang 
R un bit à 1 dans O1 et un bit à 1 
dans C2-O2, d'où appaïition 
d'une retenue à reporter à qau- 
che. À gauche de R, on a toujours 
au même rang un À dans O1 et 
un 1 dans C2-O2, ou un 1 dans 
O1 et un O dans C2-O2. Au rang 
R+1, s'il existe, on ajoute donc 1 
+ O0 + retenue de 1, la retenue se 
propage en R+2, et ainsi de suite 
jusqu'à l'extérieur de loctet (si 
R=7, la retenue opérée au rang R 
tombe de même directement à 
l'extérieur de l’octet). 

Exemple : 

O1 = 00101011 

O2 = 00010110 22): B est le bit 

de rang 5 

Ci-02 = 11101001 

C2-02 = 11101010 (B reste à À) 

O1 + C2-O2 = 00101011 + 

11101010 = 00010101 (21) avec 

retenue. 


e B passe à 0. Ceci n'est possible 
que si une retenue s'est propagée 
de la droite jusqu'au rang R maïs, 
de ce fait, elle se propage encore 
au moins jusqu'au rang R+1 (elle 
s'arrête là si le bit de rang R+1 
est à O dans C1-O2, mais elle 
continue encore si ce dernier est 
déjà à 1). Supposons tout d'abord 
qu'il y ait au moins un bit à O de 
rang supérieur à R dans C1-O2, 
qui se retouvera donc à 1 dans 
C2-02. Ce bit était à 1 dans O2, 
tout comme le bit correspondant 
dans O1. Dans l'opération O1 + 
C2-02, on a donc à ce rang 1+1, 
d’où retenue vers la gauche qui se 
propagera jusqu’à l'extérieur de 
l'octet puisque l’on ajoute toujours 
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pour les autres rangs O + 1 + re- 
tenue de 1. 
Pour qu'il n’y ait par contre aucun 
bit à O de rang supérieur à R dans 
C1-O2, tous les bits concernés 
doivent être à O0 dans O2. Par ail- 
leurs, la retenue qui arrive en R 
pour mettre B à O dans C2-0O2 
provient obligatoirement de ce 
que tous les bits à droite de R 
sont à 1 dans C1-O2, ce qui im- 
plique qu'ils étaient également à O 
dans O2. Comme B est aussi à O 
par définition, tous les bits de O2 
sont nuls: O2=00000000 = ©. 
C'est bien la seule valeur de O2 
pour laquelle la retenue dégagée 
au rang R dans C2-O2 lorsque le 
bit B repasse de 1 à O ne conduit 
pas finalement à une retenue exté- 
rieure dans le résultat O1 + C2- 
O2, soit O1-O2. 

Exemple : 

O1 = 00101011 

O2 = 00100000 (32): B est le bit 

de rang 3 

C1-O2 = 11011111 

C2-02 = 11100000 (B passe à 0) 

O1 + C2-0O2 = 00101011 + 

11100000 = GG001011 (11) avec 

retenue. 


En conclusion, après la soustraction 
d'un octet O2 à un octet Ol qui lui 
est supérieur, il y a toujours une rete- 
nue extérieure (C=1), sauf si O2 = 


Toutes ces explications n'ont d'autre 
but que d'aider à l'analyse de l'ins- 
truction SBC car, si l'utilisation de la 
retenue C paraît assez “naturelle” 
dans ADC, elle s'avère beaucoup 
moins évidente dans SBC (par assi- 
milation avec le décimal, on s'atten- 
drait plus à retirer la retenue elle- 
même que son opposé). Récapitu- 
lons. Si l'on soustrait quelque chose 
d'un nombre sur deux octets, le 
poids fort du nombre doit être dimi- 
nué de 1 si la valeur retirée de son 
poids faible lui est supérieure {si on 
calcule par exemple #$0100—-#$FF 
on doit trouver #$0001 : poids faible 
= #$00-#$FF = #$01 / poids fort 
= #$01 diminué de 1 = #$00). Si 
la valeur est par contre inférieure au 
poids faible, le poids fort ne doit pas 
être affecté par cette soustraction. Or 
nous savons maintenant que si l’on 
retire une valeur trop grande d'un 
autre octet, il n'y à jamais de retenue 
extérieure : à l'issue de la soustrac- 
tion. C=0. Si l'on fait ensuite un 
SBC sur le poids foit. et ce indépen- 
damment de ce que l’on met derrière 
SBC, l'instruction retirera de toute 
façon l'opposé de C au poids fort, 
soit 1 puisque C=0, et le résultat 
sera correct. 

inversement, si l’on retire au poids 
faible une valeur qui lu est infé- 
rieure, on aura C=1 à l'issue de la 
soustraction. Un SBC sur le poids 


fort retirera de ce dernier l'opposé de 
C, soit O, le laissant donc correcte- 
ment inchangé. Il faudrait toutefois se 
méfier du cas où la valeur retirée au 
poids faible n'est autre que O, car il 
n'y à pas alors de retenue extérieure 
et l'opposé de C vaut 1 {on pourrait 
ainsi calculer que #$0101-#$00 = 
#$0001 !}. Heureusement, le proces- 
seur prend ce problème en compte 
et positionne toujours C à 1 lorsque 
la valeur soustraite est O. 


Reste le cas particulier de l'égalité 
des deux valeurs: si l'on calcule 
O1-O1, le résultat obtenu sera bien 
0, mais quid du bit C? Il est clair 
que dans le complément à 1 de O1 
(C1-O1), tous les bits qui étaient à O 
dans O1 se retrouvent à 1 et récipro- 
quement. Si le bit de rang 0 est à O 
dans C1-O1, il sera à 1 dans le 
complément à 2 (C2-O1), s’il est à 1, 
il sera à O mais une retenue se pro- 
pagera vers la gauche dans C2-O et 
cette retenue transformera à un mo- 
ment donné un bit à O dans C1-O1 
en un bit à 1 dans C2-O2 (sauf s'il 
n'y a que des bits à 1 dans C1-OI. 
ce qui revient à dire que O1=0 et 
nous ramène au problème spécifique 
du zéro). À un rang R quelconque. 
on aura donc dans C2-O1 un bit re- 
venu à la même valeur 1 que dans 
O1. Les bits à droite de R (si R>0) 
seront à 0 après propagaton de la 
retenue {ils étaient à 1 dans C1-O1 
et à O dans Ol) : pour les rangs infé- 
rieurs à R. on ajoute ainsi 0+0. Au 
rang R. on ajoute 1+1, d'où retenue 
vers la gauche qui se propagera jus- 
qu'à l'extérieur de l'octet résultat 
O1-O1, puisque. aux rangs supé- 
rieurs à R. on additionne toujours 
"O+1 + retenue de 1” ou ”1+0 + 
retenue de 1”. A l'issue de la sous- 
traction, C=1l: une opération 
comme #$2450-— #$50 ou 
#$24FE-#$14FE produirait donc 
un résultat correct. 


Exempie 1 : 

O1 = 00101011 

C1-O1 = 11010100 (bit de rang O0 à 
0) 

C2-O1 = 11010101 

O1 + C2-O1 = 88000000 avec re- 
tenue. 


Exemple 2 : 
O1 = 01000100 
C1-O1 = 10111011 (bit de rang CO à 


1) 

C2-02 = 10111100 

O1 + C2-O1 = 00000000 avec re- 
tenue. 


Ces considérations sur l'arithmétique 
binaire peuvent vraisemblablement 
vous paraître un peu trop complexes, 
surtout en comparaison avec les 
deux premiers articles d'initiation à 
l'assembleur. De fait. il n’est ni inter- 
dit, ni impossible, d'écrire des pro- 
grammes en assembleur, même de 
grande taile et de haute ambition, 
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sans savoir ce qu'il advient. ou doit 
advenir, de tel ou tel bit à l'occasion 
de telle ou telle opératon Il suffit 
pour cela de bien assimiler le fonc- 
tionnement des instructions et de res- 
pecter leurs règles (savoir, par exem- 
ple, qu'il faut toujours faire SEC 
avant une première soustraction et 
que les problèmes de retenue éven- 
tuels seront pris en charge par le 
deuxième SBC si l'on ne fait pas 
SEC avant) Toutefois, si vous en 
avez le goût et le temps, il vous sera 
bénéfique de creuser un peu ces 
questions, ne serait-ce que pour 
mieux comprendre les mécanismes, 
mais aussi parce que d'autres instruc- 
tions de l'assembleur. qu'il nous reste 
encore à examiner, ne ‘travaillent” 
qu’au niveau du bit (de donnée ou 
du registre d'état) et produisent des 
résultats que l'on comprend mal si 
l'on ne s'attache pas un tant soit peu 
au contenu des octets, 


Voici maintenant la liste des diffé- 
rents formats de l'instruction SBC. 


SBC valeur = SBC #$NN = E9 NN 
SBC adresse en page zéro = SBC 
ADR = SBC $aa = E5 aa 

SBC adresse quelconque = SBC 
ADR = SBC $aaaa = ED octet 
bas/octet haut 

SBC ‘adresse page zéro .X = SBC 
ADRX = SBC $aa.X = F5 aa 

SBC ‘adresse quelconque"X — 
SBC ADR.X = SBC $aaaaX = FD 
octet bas/octet haut 

SBC ‘adresse quelconque" Y = 
SBC ADR.Y = SBC faaaa.Y = F9 
octet bas/octet haut 


SBC {ADR.X) = SBC ($aa,X) 
aa 

SBC (ADR),Y = SBC ($aa),Y = F1 
aa 


Il 
om 
> 


Rappelons que, comme pour ADC. 
la donnée à laquelle on retire une 
autre donnée (indiquée explicitement 
ou obtenue par l’un des modes 
d'adressage précisés ci-dessus) est 
toujours contenue dans le registre ac- 
cumulateur. 


Mis à part le bit C dont il a déjà été 
longuement question, l'exécution de 
SBC affecte les mêmes indicateurs 
du registre d'état que celle de ADC. 
à savoir N, V et Z, et ce exactement 
selon les mêmes règles. 


Sachant que SBC retire l'opposé de 
la retenue du résultat de la soustrac- 
tion proprement dite, il faut s'assurer 
que le bit C est bien à 1 lorsque l’on 
travaille sur des nombres d’un seul 
octet ou sur les octets de poids fai- 
ble. Si un doute plane sur ce point 
au moment de procéder à l'opéra- 
tion, on uïilisera l'instruction SEC 
pour l'éliminer. 


Vous trouverez ci-après les petits pro- 
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grammes présentés précédemment 
pour ADC, adaptés au cas de sous- 
tractions par SBC. 


Exemple 1 


LDA $18 (A5 18) 

SEC (38) 

SBC $DD60 (ED 60 DD) 
STA $18 (85 18) 


Exemple 2 - programme 1 


LDA $18 (AS 18) 

SEC (38) 

SBC $DD60 {ED 60 DD) 
STA $18 (85 18) 

LDA $19 (AS 19) 

SBC #$00 (E9 00) 

STA $19 (85 19) 


Exemple 2 - programme 2 


LDA $18 (AS 18) 

SEC (38) 

SBC $DD60 (ED 60 DD) 

STA $18 (85 18) 

BCS suite du programme (B@ 02) 
DEC $19 (C6 19) 

suite du programme 


Exemple 3 


LDA $18 (AS 18) 

SEC (38) 

SBC $DD60 (ED 60 DD) 
STA $18 (85 18) 

LDA $19 (A5 19) 

SBC $DDe61 (ED 61 DD) 
STA $19 (85 19) 


Bref retour sur CMP, 
CPX, CPY et les 
autres... 


Dans l'article précédent. nous avions 
dit que la comparaison de ‘quelque 
chose” avec lun des registres du 
processeur revenait en fait à une 
soustraction virtuelle de ce ‘quelque 
chose” au registre concerné, avec 
positionnement du "dernier résultat” 
en conséquence. Îl est clair mainte- 
nant que ce sont certains bits du re- 
gistre d'état qui sont affectés par ces 
opérations de comparaison, comme 
le bit Z, par exemple, dont nous 
avions déjà envisagé l'utilisation en 
sortie d'une comparaison par les ins- 
tructions BEQ et BNE. 


Sont également positionnés par 
CMP. CPX ou CPY ies indicateurs N 
et C. N ne donnera toutefois une in- 
formation correcte que s'il n'y a pas 
de débordement. Le bit C est beau- 
coup plus intéressant pour nous : à 
l'issue de la comparaison, il est à 1 si 
le contenu du registre est supérieur 
ou égal au ‘quelque chose”, et à O0 
dans le cas contraire (on retrouve là 
le même comportement de C que 
dans les soustractions). 

En sus de l'égalité ou de l'inégalité. 
on peut donc tester : 

Registre < ‘quelque chose” par 
BCC 


Registre >= ‘quelque chose” par 
BCS 

Registre > ‘quelque chose” par 
BEQ suivi de BCS {on traite d'abord 
l'éventualité d'une égalité par BEQ et 
on ne parvient donc jusqu'à l'instruc- 
tion BCS que si le contenu du regis- 
tre est bien le plus grand). 


La liste suivante donne. en regard de 
chaque instruction déjà traitée dans 
les articles précédents. les indicateurs 
d'état affectés par son exécution. 
lorsque celle-ci exerce effectivement 
une influence sur le registre d'état 
(STA. par exemple, na aucune ac- 
tion sur le registre) : 

DA: N.Z 


LDX : N.Z 
LDŸY : NZ 
INX : N.Z 
INV:N.Z 
DEX : N,2Z 
DEY : N.Z 
TAX:N.Z 
TAY : NZ 
TXA : N.Z 
TYA : N.Z 
INC : N.Z 
DEC: N.2Z 
PLA : N,2 


Exemples d'application 
Exemple 1 


ll s'agit d'une routine d'entrée et sor- 
tie de caractères à laquelle on veut 
donner les caractéristiques suivantes : 
- Le curseur sera un “—” clignotant. 

- Les lettres de À à Z seront affichées 
en NORMAL. 

- Les chiffres de 1 à 9 seront affichés 
en INVERSE. 

- Tous les autres caractères seront af- 
fichés en FLASH. 

É ce pourra sortir de la routine par 


- On refusera en saisie tous les carac- 
tères de contrôle, sauf RETURN et 
les flèches à droite et à gauche. 


Pour analyser cette routine, il faut 
disposer de quelques indications sur 
la table des codes-écran de l'Apple : 

- Le code reçu du clavier correspond 
toujours au code-écran ‘mode nor- 
mal” du caractère correspondant. 

- Les codes clavier” des caractères 
de contrêle vont de $80 à $9F. 

- Les codes clavier” des lettres vont 
de $C1 à $DA. 

- Les codes “clavier” des chiffres 
vont de $BO à $B9 et il faut leur reti- 
rer $80 pour passer aux codes 
écran” en inverse, 

- Les autres caractères vont de $A@ à 
$AF ($40 à retirer pour passer au 
code clignotant”), puis de $BA à 
$BF (toujours $40 à retrer), $CO en 
fait également partie ($80 à retirer 
pour le code ‘clignotant”), et enfin 
les codes de $DB à $DF ($80 à 
soustraire) Nous ne nous préoccu- 
pons pas ici des minuscules. 





57 





Exemple 1 - Lisa 1.5 


0300 1 
0300 2 OUT 
0300 3 ADB 
0300 4 CAR 
0300 S H 
0300 2058FC 6 
0303 204803 7 DEB 
0306 C99B B 
0308 F030 9 
030À C98D 10 
030C F033 11 
030E C988 12 

% 0310 FO2F 13 

0312 c995 14 

* 0314 D006 15 

0316 A424 16 

“ 0318 8128 17 

“ 0314 D025 18 

“ 031C C9A0 19 SS 

“ O031E 90E3 20 

M 0320 C9B0 21 

“ 0322 B00S 22 

“ 0324 38 23 

© 0325 E940 24 

* 0327 D018 25 

“ 0329 C9BA 26 So 

“ 0328 6005 27 
0320 38 28 Sa 
032E E980 29 S3 
0330 DO0F 30 
0332 C9C0 31 Si 
0334 FOF7 32 
0336 8005 33 
0338 38 34 
0339 E940 35 
0338 DO004 36 
0330 C9DB 37 S2 


Examinons donc ce petit programme, 
en commençant par la fin, c'est-à- 
dire la routine de saisie de caractères 
située aux lignes 42 à 57. 

$C000 est une adresse réservée au 
caractère reçu du clavier: lorsque 
vous appuyez sur une touche, le 
code clavier” du caractère cotres- 
pondant se trouve automatiquement 
stocké à cette adresse. En décimal, 
$C000 est égal à 49152, ou encore 
—16384, et cette valeur doit vous 
dire quelque chose car il y est fait ré- 
férence dans le manuel de l'Apple- 
soft, au chapitre concernant les 
PEEKSs et POKEs. On vous explique 
ainsi que vous pouvez utiliser l’ins- 
truction X = PEEK (—-16384) et tes- 
ter ensuite la valeur de X: si X > 
127, une touche a été pressée et son 
code est X, et inversement si X <= 
127. En binaire, 127 = 01111111 et 
les nombres compris entre 127 et 
255 sont donc compris entre 
10000000 et 11111111 en binaire; 
en d’autres termes, si X est supérieur 
à 127, cela revient à dire que le 
contenu de l'adresse $C000 (ou 
—16384) est un nombre binaire né- 
gatif en complément à 2 (bit 7 à 1). 
En assembleur, on détectera donc 
l'enfoncement d’une touche en re- 
gardant si le contenu de $C000 est 
positif ou négatif (touche pressée 
dans ce second cas). Le manuel de 
l'Applesoft fait également référence à 
l'adresse —16368 ($C010) qu'il faut 
toucher” d’une façon ou d'une 


ARE 





033F B0ED 38 CS S3 
0341 20F0FD 39 ECRAN JSR OUT 
344 4C0303 40 JMP DEB 
ORG $3 0347 60 41 FIN RTS 
0e A 0348 A424 42 GET LDY 
0344 B128 43 LDA (AD8),Y 
EPZ $é6 034C 48 44 PHA 
EP2 $24 034D A9AD 45 LDA #46AD 
JSR $FCS8 034F 9128 46 STA (ADB) ,Y 
JSR GET 0351 ADOOCO 47 LDA $C000 
CP #$9B 0354 3005 48 EMI GETI 
BEQ FIN 0356 49 PLA 
CMP #$8D 0357 9128 50 STA (ADB) ,Y 
BEQ ECRAN 0359 D0ED S1 BNE GET 
eue LE 035B 8010C0 S2 GETI STA $C010 
5608 035E 8506 53 STA CAR 
CMP 0360 68 54 PLA 
BNE SS 0361 9128 55 STA (ADB) ,Y 
LDY cé 363 A506 56 LDA CAR 
EDÉ ADR Ÿ 0365 60 57 RTS 
CMP #$A0 
BCC DEB 
Ba a Récapitulation : exemple 1 
SEC 
SBC #$40 0300- 20 58 FC 20 48 03 C9 9B 
DE PAS) 0308- FO 3D C9 BD FO 33 c9 88 
BCS 81 0310- FO 2F C9 95 DO 06 A4 24 
SEC 0318- Bi 28 DO 25 C9 A0 90 E3 
SEC #$80 0320- C9 BO B0 05 38 E9 40 D0 
BNE ÉCRAN 0328- 18 C9 80 05 38 E9 80 
CMP H$CO 0330- DO OF C9 CO FO F7 B0 05 
BEQ S4 0338- 38 E9 40 DO 04 C9 DB B0 
BCS S2 0340- ED 20 FO FD 4C 03 03 60 
SEC 0348- A4 24 Bi 28 48 A9 AD 91 
SBC #$40 0350- 28 AD 00 CO 30 05 68 91 
BNE ECRAN 0358- 2B DO ED BD 10 CO 85 06 
CP #$DB 0360- 6B 91 28 ÀS 06 40 


autre (par un PEER ou un POKE) 
après avoir lu le clavier par PEEK 
(—-16384), et ce afin de mettre la 
machine en condition de recevoir un 
autre caractère éventuel. On agira de 
même en assembleur, en adressant, 
d'une façon ou d’une autre. la case- 
mémoire $C010. Ces quelques préci- 
sions nous aideront à comprendre le 
fonctionnement de la routine d'en- 
trée GET. 


Lignes 42 à 44 : on charge dans l’ac- 
cumulateur le caractère situé à la co- 
lonne H dans la ligne courante dont 
l'adresse de base est donnée par 
ADB et on dépose celui-ci au som- 
met de la pile Cette manipulation 
des adresses dans la page TEXT doit 
vous être maintenant familière après 
les deux premiers articles. 

Lignes 45 et 46 : #$AD est le code- 
écran de ‘-” en mode nommal, et 
on l'affiche à la place du caractère 
que l'on vient d'empiler. 

Ligne 47 : on regarde ce qu'il y a à 
l'adresse $C000 par un LDA (on sait 
par ailleurs que LDA exerce une ac- 
tion sur le bit N du registre d'état). 
Ligne 48 : BMI provoquera un bran- 
chement si le bit N est à 1, donc si la 
valeur lue en $C000 est négative, ce 
qui caractérise le fait qu’une touche a 
été pressée. Dans ce cas, on saute à 
GET1 


Ligne 49 à 51: on dépile le carac- 
tère remplacé tout à l'heure par le 
—” et on l'affiche de nouveau à sa 


place sur l'écran. avant de retourner 
à GET (BNE provoquera toujours le 
branchement car il n'existe pas de 
code-clavier égal à 0). On pourrait 
bien sûr ne remonter que jusqu'à 
LDA #$AD, mais l'exécution d'ins- 
tructions supplémentaires ralentit le 
clignotement du curseur et le rend 
plus perceptible. 

Lignes 52 à 57: une touche a été 
enfoncée et son code se trouve dans 
l'accumulateur. STA $CO010 n'a 
d'autre but que de ‘libérer’ l'Apple 
pour une autre touche. On stocke 
ensuite le caractère en CAR. on 
remet à l'écran le caractère précé- 
demment remplacé par le curseur, et 
on quitte enfin la routine après avoir 
récupéré le caractère saisi au clavier 
dans l'accumulateur. 


Voyons maintenant le reste du pro- 
gramme. 


Ligne 6 : équivalente à HOME. 
Ligne 7 : saisie d'un caractère par 
notre routine personnelle. 

Lignes 8 et 9 : #$9B est le code 
de ESC. Si l'utilisateur vient donc 
d'appuyer sur ESC, on saute à la fin 
de la routine. 

Lignes 10 à 13 : si c'est un RE- 
TURN (#$8D) ou une flèche à gau- 
che (#$88), on affiche. 

Lignes 14 et 15 : si ce n'est pas 
une flèche à droite (#$95), on saute 
en S5. 

Lignes 16 à 18 : on relit le carac- 
tère qui se trouve sous le curseur 
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pour le ré-afficher (il peut paraître 
plus simple d'augmenter simplement 
H pour déplacer le curseur, mais il 
faudrait alors vérifier par nous- 
mêmes que l'on ne change pas de 
ligne, ce que la routine OUT = 
$FDFO fera très bien à notre 
place... 


Lignes 19 et 20 : si l'accumulateur 
centient une valeur inférieure à 
#$A0. on à tapé un caractère de 
centrêle qui se trouve donc rejeté 
par la demande d’une autre saisie 
(BCC DEB) 

Lignes 21 et 22 : si le code est su- 
périeur ou égal à #$B6, BCS bran- 
che en SO. 

Lignes 23 à 25 : c'est autre chose 
qu’un chiffre ou une lettre : on retire 
#$40 au code pour l'afficher en 
FLASH. 11 faut absolument faire SEC 
avant SBC puisque l'on sait juste- 
ment que C=0 (BCS branche si 
C=1 et il ny à pas de branche- 
ment). 

Lignes 26 à 30 : pour un code >= 
#$BA, on passe en S1. Sinon. c'est 
un chiffre et on retire #$80 pour un 
affichage en inverse (même remar- 
que que ci-dessus pour SEC). 

Lignes 31 à 36 : si c'est #$C6, on 
remonte à S4 afin d'obtenir un affi- 
chage clignotant (on pourrait aussi 
passer directement à S3 puisque le 
bit C est mis à 1 lorsque l’accumula- 
teur est supérieur ou égal à la valeur 
à laquelle on le compare). Si c'est 
supérieur à #$C0 (l'égalité est déjà 
traitée), on passe à S2. Sinon, c'est 
encore un caractère à afficher en 
mode clignotant et on retire donc 
#$40. 

Lignes 37 à 40 : si c'est supérieur 
où égal à #$DB. c'est un caractère 
situé au-dessus des lettres de l'alpha- 
bet et on saute à S3 pour un affi- 
chage en clignotant (on est sûr que 
C=1i puisque BCS provoque le 
branchement). Dans le cas contraire, 
c'est une lettre et on l'affiche sans 
modification du code {mode normal). 
Après manipulation éventuelle du 
code, vous aurez constaté que l’on 
amive toujours à la ligne 39, pour af- 
fichage par la routine standard du 
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moniteur puis retour en début de 
routine. 


Pour tester le fonctionnement de ce 
programme après en avoir rentré le 
code en mémoire ou l'avoir chargé à 
partir d’une disquette, il suffit de 
taper CALL 768 à partir du BASIC. 


Exemple 2 


Ce programme peut être un utilitaire, 
assez rudimentaire il est vrai, destiné 
à vous indiquer, après l'exécution 
d'un programme en Applesoft. si 
telle ou telle variable à bien été utili- 
sée, ou peur le meins initialisée. au 
cours de cette exécution. Il ne suffit 
pas en effet qu'existe une instruction 
A=2 pour que la variable A soit ef- 
fectivement créée en mémoire, il faut 
en outre que cette instruction soit 
réellement exécutée dans le déroule- 
ment du programme. L'intérêt ”utili- 
taire” de notre routine pourrait donc 
consister à détecter des séquences 
d'instructions par lesquelles on ne 
passe pas lors d’un RUN et qui ris- 
quent fort d'être inutiles. Ce n'est là 
cependant qu'un aspect secondaire, 
le but essentiel restant toujours d'il- 
lustrer le mode d'emploi des instruc- 
tions de l'assembleur que nous 
connaissons maintenant. 


Jl nous faut d'abord rappeler briève- 
ment la façon dont sont stockées les 
variables en mémoire. Il existe deux 
grandes catégories de variables : 

- les variables simples, stockées dans 
une zone dont l'adresse de début 
nous est donnée aux adresses $69 et 
$6A, dans l'ordre poids faible/poids 
fort ($69-$6A ‘’pointe” vers le début 
de la zone des variables simples) et 
l'adresse de fin aux adresses $6B- 
$6C: 


- les tableaux, dont le pointeur de 
début de zone est stocké en $6B- 
$6C la zone des tableaux 
commence donc juste après la zone 
des variables simples) et le pointeur 
de fin en $6D-$6E. 

Dans les zones de stockage des va- 
riables, les noms de variables sont 
toujours codés sur deux octets selon 
les règles suivantes, qu'il s'agisse de 


0312 DO006 

0314 A51i8 
ORG $300 0316 CS56B 
EPZ $6 0318 FO2Â 
EPZ $7 031 000 
EPZ $69 031C B118 
P2Z $6B O31E C506 
EPZ $6D 0320 D014 
EPZ $B 0322 CB 
EPZ $9 0323 8118 
EPZ $18 0325 C507 
DA 0327 DOOD 
STA TUS 0329 E608 
STA TTB 032B ÀAS6B 
L US 032D 8518 
STA 032F ASé6éC 
LDA VS+1i 0331 8519 
STA P+1 0333 4C4403 
LDA P+i 0336 ASi8 
C4P TB+1 0338 18 


tableaux ou de variables simples : 

- code ASCH standard {celui qui est 
retoumé par la fonction ASC) si la 
variable est réelle par exemple. sa- 
chant que le code ASCII de A est 65 
en décimal, soit $41, À serait codé 
41 00 et AA serait codé 41 41. 

- code ASCE pour la première lettre 
et code ASCII augmenté de $80 (soit 
128) pour là seconde si la variable 
est de type ‘chaîne de caractères” : 
par exemple 41 80 pour A$ et 41 
C1 pour AA$. 

- code ASCII augmenté de $80 pour 
les deux lettres si la variable est de 
type entier” : C1 80 pour A% et Ci 
CI pour AA%. 

Une variable simple occupe toujours 
7 octets. Pour un tableau, le nombre 
d'octeë occupés est stocké en mé- 
moire juste après le nom du tableau. 


Le principe d'utilisation de la routine 
est le suivant : 

- On place aux adresses $6 et $7 les 
deux octets correspondant au nom 
de la variable examinée, codés selon 
les règles en vigueur dans les zones 
des variables, puis on appelle la rou- 
tine par un CALL 768. 

- Celle-ci va rechercher dans la zone 
des variables simples, puis dans celle 
des tableaux, la présence éventuelle 
d'une variable stockée sous le méme 
nom. Pour cette recherche, on utili- 
sera l’adressage indirect indexé par 
Y, avec pour adresse de base les dif- 
férents pointeurs de zone. Si on 
trouve dans la première zone, on 
mettra 1 à l'adresse $8, et 1 à 
l'adresse $9 si on trouve dans la se- 
conde. 

- Pour afficher le résultat de la re- 
cherche, on utilise une routine du 
moniteur, commençant à l'adresse 
$F940, qui affiche à l'écran le 
contenu des registres Y et X sous 
forme de 4 chiffres hexadécimaux. 
On voudrait donc voir 0000 si la va- 
riable n'existe pas du tout, 0100 si 
elle existe uniquement dans les varia- 
bles simples, 0001 si elle n'exrste que 
dans les tableaux, et 0101 si elle 
existe dans les deux catégories de 
variables. 
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Reprenons donc tout cela 
détail. 


plus en 


Lignes 10 à 16 : mise à O de nos 
deux drapeaux ‘existe / n'existe pas” 
et transfert dans une variable de tra- 
vail P (adresses $18-$19) du poin- 
teur de début de la zone des varia- 
bles simples. Le poids faible (VS) 
viendra en P ($18) et le poids fort 
(VS +1) en P+1 ($19). 

Lignes 17 à 22 : on veut savoir si 
on est arrivé à la fin de la zone des 
variables simples On regarde 
d'abord si l'octet de poids fort, le 
plus significatif, P+1, est égal au 
poids fort du pointeur de début de la 
zone des tableaux TB+1 : si ce n'est 
pas le cas, on ne s'intéresse pas au 
poids faible. Sinon, on effectue le 
même contrôle pour les poids faibles 
P et TB, s'il y a égalité, on saute en 
S20. 

Lignes 23 à 26: on charge dans 
l'accumulateur le code de la pre- 
mière lettre du nom stocké dans la 
zone des variables. P/P+1 doit en 
effet toujours contenir l'adresse de 
début des informations pour une va- 
riable donnée (la première stockée 
en l'occurrence si on commence en 
début de zone). En prenant Y=0, on 
accède par LDA(P).Y à la première 
inforrnation pour la variable en ques- 
tion, soit la première lettre de son 
nom, que l’on compare ensuite à la 
première lettre du nom cherché (C1). 
Si elles sont différentes, on passe en 


S1. 

Lignes 27 à 30: même principe 
pour la seconde lettre, en prenant 
cette fois Y=]1. 

Lignes 31 à 36 : on a trouvé ! TVS 
passe de O0 à 1, suite au INC, et l'on 
met en P/P+1 le pointeur de début 
de la zone des tableaux avant de 
sauter à S20. 


Lignes 37 à 43: on n'a pas 





ADC #$7 0371 C8 68 INY 
STA P 0372 AS19 69 LDA P+1 
BCC 54 0374 7118 70 ADC (P).Y 
INC P+1 0376 8519 71 STA P+1 
JMP 500 0378 68 72 PLA 
LDA P+1 0379 8518 73 STA P 
CP STOP+1 0378 404403 74 JMP S20 
BNE S2 

ES Sror 

BEQ FI! Récapitulation : exemple 2 

LDY #0 

LDA (P),Y 0300- A9 00 85 08 85 09 A5 469 
Q1P Ci 0308- 85 18 ÀS 6À 85 19 A5 19 
AE S3 0310- CS 6C DO 06 AS 18 CS 6B 
INT «po,y | 9318- FO 2A A0 00 BI 18 CS 06 
CMP C2 0320- DO 14 C8 Bi 18 C5 07 DO 
BNE <3 0328- 0D Eé 08 ÀS 6B 85 18 ÀS5 
INC TTE 0330- 6C 85 19 4C 44 03 AS 18 
LDY TVS 0338- 18 69 07 85 18 90 02 Eé 
LDX TTE 0340- 19 4C 0E 03 ÀS 19 CS E 
JSR $F940 0348- DO 06 ÀS 18 CS éD FO 11 
RTS 0350- A0 00 B1 18 C5 06 D0 11 
LOY #2 0358- C8 Bi 18 CS 07 DO OÀ Eé 
LDA P 0360- 09 A4 08 A6 09 20 40 F9 
CLC 0368- 60 A0 02 À5 18 18 71 18 
ADC (CP) ,Y 0370- 48 C8 ÀS 19 71 18 85 19 
PHA 0378- 68 85 18 4C 44 


trouvé ! il faudrait donc aller voir ce 
qu'il en est pour la variable stockée 
suivante, s'il y en a encore. Pour ce 
faire, nous devons mettre à jour 
notre pointeur de début d’informa- 
tions pour une variable, P/P+1 On 
retrouve là un exemple typique d’uti- 
lisation de ADC: on ajoute 7 au 
poids faible P (la variable que nous 
venons de traiter occupe 7 octets et 
la suivante éventuelle commence 
donc 7 octets plus loin), si cette addi- 
tion ne produit pas de retenue exté- 
rieure (BCC) on laisse le poids fort 
inchangé, sinon il doit être incré- 
menté. On retourne ensuite au début 
de la recherche. en vérifiant tout 
d'abord que l’on n'est pas encore en 
fin de zone (on passe à la recherche 
dans la zone des tableaux si le test 
est positif). 


Lignes 44 à 49 : on va maintenant 
chercher dans les tableaux. On re- 
garde de suite si la zone des tableaux 
n'est pas terminée (P+1 = STOP+1 
et P = STOP). Si elle l’est, on passe 
à FIN, 

Lignes 50 à 57 : même principe de 
recherche du nom que précédem- 
ment. À partir du pointeur sur le 
début des informations. Y=0 nous 
donne accès à la première lettre du 
nom stocké et Y=1 nous donne 
accès à la seconde. 

Lignes 58 à 62 : on a trouvé ! TTB 
passe de O à 1, puis on charge Ÿ et 
X respectivement avec TVS et TTB 
pour obtenir l'affichage voulu par 
$F940 avant de quitter la routine. 
Lignes 63 à on na pas 
trouvé ! Là encore, il faut mettre à 
jour le pointeur de début des infor- 
mations pour la variable suivante, 
mais c'est un peu plus complexe que 
pour les variables simples, car le 
nombre d’octets à ajouter n'est pas 
une constante. Nous savons seule- 


ment qu’il se trouve derrière les deux 
lettres du nom, dans l'ordre poids 
faible/poids fort. et nous devons utili- 
ser la même technique d'adressage 
pour le lire. Pour Y=2, on récupère 
le poids faible du nombre d'octets 
occupés par le tableau. que l'on peut 
ajouter à P par ADC. Il ne faut pas 
toutefois ranger de suite le résultat en 
P car on modifierait ainsi l’adresse- 
base de notre adressage et nous ne 
pourrions plus aller lire le poids fort 
du nombre d’octets. qui est récupé- 
rable avec la valeur 3 pour Y mais 
sous réserve que l'adresse-base soit 
toujours correcte. C'est pourquoi on 
empile provisoirement le résultat du 
calcul après ADC. On peut alors lire 
le poids fort du nombre d'octets et 
l'ajouter à P+1 par ADC (sans CLC 
préalable cette fois puisqu'il peut y 
avoir une retenue provenant de l’ad- 
dition précédente à prendre en 
compte). Le résultat de l'addition des 
poids forts est remis en P+1. celui 
de l'addition des poids faibles est en- 
suite retiré du sommet de la pile et 
remis en P: le pointeur est à jour et 
l'on retourne au début de la procé- 
dure de recherche. 


Pour utiliser cette routine, la mé- 
thode la plus simple nous semble 
être la suivante : 

- Après la fin d'exécution du pro- 
gramme Applesoft, passer en moni- 
teur par CALL -151. 

- Faire un BLOAD du code-objet de 
la routine s'il ne se trouve pas déjà 
en mémoire. 

- Mettre aux adresses $6-$7 le code 
du nom de la variable cherchée (en 
tapant par exemple 6: 41 C1 ”Re- 
turm” si vous vous intéressez à la va- 
riable AA). 

- Lancer la routine par 300G suivi de 
“Return”. 2 
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Le BASICIUM 


Gérard Michel 


Pom's vous propose sous ce nom 
une disquette regroupant un certan 
nombre de routines et d'utilitaires 
destinés à faciliter la gestion d'écran 
et la saisie de données réalisées par 


vos programmes en Applesoft. 


Le BASICIUM reprend sous une 
forme plus élaborée et plus intégrée 
la gestion de masques et l'INPUT gé- 
néralisé de tableaux déjà présentés 
dans ces pages, complétés par des 
instructions de gestion de messages. 

Il permet notamment une prépara- 
tion indépendante des opérations de 
saisie-clavier, d'affichage et d'impres- 
sion, et une réduction de la taille des 
programmes Applesoft au moyen 
d'instructions synthétiques. 


HE 


Eau 


ERRRERISERI IAE SDUIER 


Ainsi, le petit programme listé ci- 
après à titre d'illustration suffit pour 
réaliser les traitements suivants : 


e Affichage de l'écran de présenta- 
ton ECRAN 1. 


Ecran 1 
xxx 

x # x 

# # x 

# # # x 
HXXXx MAMMX XX XX 
# # x x x 
# # + L 2 # 
HXXXX XX XXXX 


#++ EXEMPLE D'UTILISATION 


++ 


H++================= 


Programme de démonstration 50 


BASICIUM 


10 TEXT : HOME 

20 HIMEM: 34680 

25 BL$ = * 

30 D$ = CHR$& (4) :D1$ = 


Rx HXXX MAX MAMX MAX À 





e Saisie de trois groupes de valeurs 
dans un tableau intermédiaire Z$, 
à l'intérieur du cadre donné par 
ECRAN 2, avec  tabulation, 
contrôle sur la longueur, vérifica- 
tion d’un tvpe alphanumérique 
pour les valeurs de la première co- 
lonne et numérique pour celles de 
la seconde, déplacement d'une 
zone à l'autre dans les deux 
sens. 

e Demande de confirmation après 
chaque écran de saisie, avec 
contrôle d’une réponse O ou N, et 
modification dans la négative. 

e Consultation à l'écran des trois ta- 
bleaux, avec possibilité de hard- 
copy sur demande dans la mesure 
où l'imprimante est déclarée en 
service. 

© Restitution des données sur papier 
sous la forme de l’état TABLEAU. 


Dans la liste du programme, les ins- 
tructions du BASICIUM sont repé- 


x 
x 
x 


x 
x 
x 
x 
x 
x 
x 


KM OK OK OK K KO K 


x 
x 
x 
x 
% 
x 
% 


LES. 


rées par le caractère ”]”. Ce système 
est conçu pour un Apple //e ou un 
Apple Ii+ 48K. Il est compatible 
avec le DOS et toutes les instructions 
standard” de l’Applesoft. 


Les différents utilitaires, masques et 
routines ont également été adaptés 
pour une utilisation avec un Apple 
Île équipé de la carte 80 colonnes 
Apple /#e. On peut ainsi disposer 
d'un BASICIUM ‘80 colonnes” doté 
des mêmes possibilités et instructions 
que la version 40 colonnes (utilisa- 
tion de masques, de tableaux de va- 
riables, hard-copvy, impressions para- 
métrées, gestion de messages...) 
Cette seconde version est disponible 
sur la même disquette. 


Pom's vous propose l'ensemble du 
système au prix de 150 francs, docu- 
mentation comprise. 


Ecran 2 


ANNEE EEE EEE EEE ELA EE EL EEEELEEX, 


£ TABLEAU DE DONNEES $ 


EDR OT VCLCLDEL IDE LVL TCELITELETCPATOTE 





FOR I = 
GOTO 











0 TO 2: READ MES(I): NEXT : 
?0 


60 DATA SAISIE CONFIRMEE, RETURN’ OÙ 
?’ POUR HARD-COPY, IMPRIMANTE BRAN 


CHEE 


= 65 VTAB 23 


PRINT D$"BLOAD POBAS-VAR": POKE 80 :)42:]1:2 


37191, PEEK (43634): 


POKE 37192, 90 :]1GME0: 


2: PRINT D1$"PR#1": RETURN 


CHRS$ (13) + DS: 70 :]1A1: FOR Z = 1 TO 5000: NEXT :NS = 1 


: IF PEEK <é) THEN 70 
1F PEEK (6) THEN 110 


PEEK (43635): PRINT D$"BLOAD POBA 100 :3M2: 1F PEEK (é) THEN 70 


S-B": POKE 37254, PEEK (43634): P 105 
OKE 37255, PEEK (43635) 110 
40 DIM 2$(13),Y$(5),22$(3,13) 


62 


GOTO 90 
FOR 1 = 0 TO 13:Z2${NS,1) = 2${1):1i 
F: NEXT :NS = NS + 1: IF NS < 4 T 
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HEN 80 #:)A3 
120 FOR NN = i TO 3: FOR I = 0 TO 13:2$ 160 FOR I = O0 TO 12 STEP 2: FORJ=0T 

CID = 2ZZS(NWi,1): NEXT :1PZ:)RMEIÏ: 9 4 STEP 2:JJ = J + €J < 2) —- &J 

IF NOT PEEK (6) THEN 140 > 2):3VHS(J) = 22B(JJ,1):YECJ + 1) 

130 :1GOME2: IF PEEK <é) THEN POKE 34,2 = Z2ZB(JJ,I + 1)2:YBCJ) = RIGHTS « 

4: GOSUB 65:}H: PRINT D1$“PRHC": BLS + YSCJ),13):YSCJ + 1) = RIGH 

POKE 34, 1:)A2 T$ CBLS + YHSCJ + 1),10):12F: NEXT 
140 NEXT :]18ME2: IF NOT PEEK (é) THEN JPY 

TEXT : HOME : END 170 GOSUB 6S:1CC: PRINT D$“PRH6°:143: N 

158 :143: GOSUB 65:)CA:]1CE:1CB:1CE:3CF:3 EXT 

CD:1CG6:1CD0:)1CF:1CD: PRINT D$S"PR#HS 180 GOSUB 65:1CD:1CA: PRINT D1$°PR#H8" 

Tableau 

“JE DE DE DE DE JE DE DE DE DE DE DE DE DE DE DE DE DE DE JE JE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE JE DE DE DE DE DE DE DE DE DE DE DE DE DE DE JE DE DE DE DE DE DE DE DE DE DE DE DE DE DE JE DE DE DE DE DE DE DE DE DE DE HE 
# % #% % 
x SAISIE NC 1 % SAISIE NO2 #% SAISIE NO 3 % 
x x x x 
Æ————————— —— Æ——— Æ————————— % 
% ! % ! % ! % 
# VALEUR 1?! ÿ VALEUR 2 * VALEUR 1! 1 VALEUR 2 * VALEUR 1! ! VALEUR 2  * 
x ! x Û *% : x 
Æ————— 2 ——— = % 
æ Û x ! x 1 #% 
% VALEUR 0! OOOxVALEUR 0 -— T2! 000.22xVALEUR 0 - T3 ! 000.33 * 
x VALEUR ji! 111#VALEUR 1 - T2! 111.22xVALEUR 1 - T3 ! 111.33 +* 
x VALEUR 2! 222#%xVALEUR 2 - T2! 222.22*VALEUR 2 - T3 ! 222.33 * 
x VALEUR 3! 333x*VALEUR 3 - T2! 333.22*VALEUR 3 - T3 ! 333.33 * 
x VALEUR 4: 444xVALEUR 4 - T2! 444.22XxVALEUR 4 - T3 ! 444.33 * 
% VALEUR 5! 999Y*VALEUR S - T2! 999.22XxVALEUR 5 - T3 ! 5955.33 +* 
x VALEUR é! 6é6XxVALEUR 6 - T2! 666.22*VALEUR 6 - T3 ! 666.33 *# 
x 1 *% 1 *% ! %- 


DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE EE DE DE DE DE EE EE DE DE DEEE DE EE DE EE DE JE DE DE DE DE DE DE DE DE EE DE EE DE DE DE DE EEE EE DE DE EE JE DE DE EE EE 





NDLR: tous les prix en francs indi- 
qués dans cet article sont TTC, sauf 
spécification contraire Chaque fois 
que les coordonnées d'un fournisseur 
sont connues, nous les indiquons en 
fn d'article Înu#le par conséquent 
de nous appeler pour les demander 
au téléphone. Merci. 


En vedette: les logiciels intégrés. 
C'est vrai, dans la galau'e micro-in- 
formatique, on ne jure plus que par 
les fenêtres et les programmes inté- 
grés. À preuve. le succès de Lotus 1- 
2-3, un logiciel pas spécialement bon 
marché, installé en tête dans la liste 
des best-sellers. Seulement, jusqu'à 
aujourd'hui, pour travailler avec un 
de ces programmes intégrés, il fallait 
disposer de 16 bits, et donc d’un 
IBM PC/XT ou compatible. Réjouis- 
sons-nous, voici que l'Apple // ouvre 
lui aussi les fenêtres. 


Des fenêtres pour 
l'Apple // 


Avec tout d'abord Appleworks, né- 
cessitant un Apple //c ou //e avec 
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Micro-informations 
Jean-Michel Gourévitch 


128K, et disponible aussi pour l'Ap- 
ple // sous le nom de ”3 E-Z 
Pieces”... Avec Appleworks, on n'est 
pas tout à fait dans l'inconnu. C’est 
là réunion de trois programmes en 
un : un traitement de texte, une base 
de données et un tableur. Le tableur 
ne dépaysera quère les utilisateurs de 
Visicalc, dont les formules de calcul 
sont fort voisines. La base de don- 
nées a un air de déjà vu. Et pour 
cause, car il s’agit de Quick File //. 
Son auteur, Rupert Lissner, est aussi 
celui d'Appleworks. Seul le traite- 
ment de texte est inédit. Une de ses 
nouveautés est, quant à elle, plus gê- 
nante : les options d'impression sont 
formulées en inches et non plus en 
colonnes. li y a des calculatrices qui 
vont chauffer. 


Premier avantage de ce programme 
exceptionnel : sa facilité d'utilisation. 
Les commandes sont en effet les 
mêmes pour toutes les opérations 
importantes sur les trois applications. 
La pression simultanée des touches 
"Pomme ouverte” et ”H” permet 
une recopie hard” de l'écran sur 


imprimante. Et des tableaux explica- 
tfs sont accessibles dans chaque ap- 
plication avec “Pomme ouverte” et 
°?”. Plus besoin de documentation ! 


Deuxième avantage, le plus impor- 
tant, c’est l'intégration. On peut par 
exemple commencer une lettre avec 
le traitement de texte, aller chercher 
un tableau créé avec le tableur, reve- 
nir à la lettre et y insérer le tableau. 
On peut encore interrompre la rédac- 
tion d’un rapport, presser ”’Pomme 
Ouverte-Q”, et aller chercher une 
note déposée antérieurement sur le 
desktop” (le plan de travail) et. une 
fois la note consultée, revenir au rap- 
port précisément là où on l'avait 
quitté. On peut même utiliser des ta- 
bleaux créés avec Visicalc ou des 
textes écrits avec Applewtiter (à 
condition de les avoir convertis en 
ProDOS à l’aide de la disquette utili- 
taire ProDOS, car Appleworks est 
écrit pour ce système d’exploitation). 


Particulièrement remarquable, la pré- 
sence de nombreuses sécurités qui 
permettent d'éviter d'écraser un dos- 
sier par inadvertance {comme je 


FhHaSuS x BERG ANSNSELTISTEAS 
PRASNIIISNIÉNNINSENNENNENEN 


SÉRRAÉAMAMMMÉNENEE EN 


63 


| 


ISERE 


viens de le farre avec le début de cet 
article en tapant en Applewriter Ch1- 
S au lieu de Ctrl-L!}. Ainsi, quand 
on choisit l'option de quitter le pro- 
gramme, Appleworks affiche "Do 
you really want this ?” (Le voulez- 
vous vraiment?) et n'accepte la 
commande qu'après un Yes” expli- 
cite. Appleworks est à coup sûr l’un 
des premiers de ces programmes qui 
rendront la vie plus facile à tous les 
utilisateurs de micros. Il est vendu 
aux Etats-Unis 395 dollars et sera 
traduit et vendu par Apple. 


Sortie dans sa Version française à 
Apple Expo, Jane transforme votre 
Apple /’c ou //e en mini-Macintosh, 
avec avant tout le souci d’être facile- 
ment utilisable par. tous, à l'aide 
entre autres du célèbre ‘couper et 
coller” qui fait le succès du Macin- 
tosh. Jane offre les programmes Ja- 
neWrite, JaneCalc et JaneList en un 
programme intégré pouvant fonction- 
ner avec la souris Apple, la souris 
Arktronics, un joystick ou le Koala- 
pad. Bien entendu, non seulement 
les informations peuvent passer 
d'une application à l'autre, mais les 
trois logiciels-en-un utilisent la même 
syntaxe autant que possible, ce qui 
réduit bien évidemment le temps 
d'apprentissage. Les importateurs de 
Jane ont en outre bon goût. ce qui 
ne gâche rien: leurs hôtesses étaient 
manifestement parmi les plus mi- 
gnonnes à Apple Expo .… Jane, ainsi 
d’ailleurs qu'Appleworks. fera pro- 
chainement l'objet d'un banc d'essai 
approfondi dans Pom's. 


Jane est fournie dans un dossier ri- 
gide, avec un manuel détaillé et qua- 
tre disquettes : Demo, Systems, Data 
et Help. Ces disquettes sont de cou- 
leurs différentes, ce qui facilite leur 
repérage. Initialement prévue pour 
fonctionner seulement avec la souris 
Arktronics, Jane utilise à présent les 
souris Apple // et //e, et se vend 
donc séparément de ces outils. Ceci 
a permis de baisser son prix à moins 
de 1.500 FF. 


Selon le même principe, ARTSCI 
propose aux Etats Unis ”’The Magic 
Office System”. Il s'agit d'une 
combinaison de Magic Window, Ma- 
giCalc et Magic Words, permettant 
de ‘couper et coller” (l'expression 
fait aujourd'hui fureur dans le lan- 
gage des micros) des informations 
entre les programmes: un tableur, 
un traitement de textes et une base 
de données classiques. 


Même chose ou presque avec ”4 in 
1”, qui utilise un langage commun et 
des procédures identiques pour un 
seul programme et quatre applica- 
tions. Une production de Softsmith, 
vendue 129 dollars. 
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Bridge”, qui permet de faire le pont 
entre un fichier PFS. un traitement 
de texte (Applewriter ou Magic Win- 
dow) et un tableur (Magicalc ou Visi- 
calc). Prix : 506 F HT. 


Et en Grande Bretagne, Dark Star a 
conçu une carte s’'insérant dans un 
des slots de l'Apple //e, la Snapshot 
Shuttle, qui permet d'interrompre 
un programme par une pression sur 
un interrupteur, de faire tourner un 
autre programme, puis de revenir en 
actionnant à nouveau l'interrupteur 
au premier programme. au point 
exact où on l'avait laissé. L'utilisation 
du Snapshot exige au moins un lec- 
teur et 128K de mémoire. Prix : 115 
livres. 


Plus classique 


Il y a encore de la place pour les lo- 
giciels non intégrés. À preuve Epis- 
tole, un traitement de texte français. 
qui calcule (utile pour factures, devis, 
…), dispose d'un mailing intégré et 
permet l'intégration de tableaux créés 
avec Visicalc, Multiplan ou Magicalc. 
La dernière édition de ce logiciel pro- 
posé par Version Soft est réalisée 
sous ProDOS. Prix : 2372 F. 


Quant à Homeword, c'est un traite- 
ment de textes utilisant cette autre fa- 
cité de la micro-informatique : les 
icônes. Le bas de l'écran est illustré 
de dessins représentant les applica- 
tions. Pour une utilisation domesti- 
que, Homeword est particulièrement 
agréable. Comme pour tous les logi- 
ciels non encore francisés, attention 
aux accents ! Homeword est conçu 
par Sierra On Line et vendu outre- 
Atlantique pour 70 dollars. 


Pour les amateurs d’exotisme, il 
existe aussi un traitement de texte en 
chinois doté de 400 caractères d’un 
vocabulaire de base, avec possibilités 
d'extension. Réalisé par Dune Asso- 
ciates; prix : 70 dollars. 


Pour les applications sérieuses”, on 
peut relier à l'Apple Il un disque dur 
Intec 505 (10 mégas de capacité) à 
2700 livres, ce qui n’est pas donné. 
Coûteux également, ’the Genius” de 
Micro Display Systems, un moniteur 
permettant d'afficher une page en- 
tière de texte : 57 lignes de caractè- 
res de 7x12 pixels, disponible en noir 
et blanc, vert ou ambre. Livré avec 
une carte d'interface (à placer dans 
le slot 3), ce génie permet une utili- 
sation plus complète de lApple au 
bureau. Prix : 1250 dollars. 


Des imprimantes 


Décidément, Apple ne délaisse guère 
le terrain de l'impression. À la fin de 
l'été sortira la Scribe. Conçue 
comme adjonction à l'Apple //c, la 
Scribe ne coûtera que 299 dollars, et 
imptimera en couleurs. Eh oui, en 


couleurs. grâce à un ruban et selon 
le principe du transfert thermique. La 
Scribe imprimera sur n'importe quel 
papier. Un prix très attractif, mais des 
tubans onéreux qui la rendent peu 
adaptée à une utilisation intensive. 


Autre nouveauté : la Think det de 
Hewlett Packard. Portable, à jet 
d'encre, imprimant des caractères en 
12 langues, avec en outre des possi- 
bilités graphiques Et surtout peu 
bruyante (la tète d'impression ne 
touche jamais le papier). Prix de 
vente aux USA : 500 dollars. Dispo- 
nible en France à la fin de l'année. 


Vu à Apple Expo: des imprimantes 
Canon présentées par ASAP. dans 
différents registres. Les matricielles 
avec la PW 1080A (80 colonnes, 
160 cps) à 5600 F HT et la PW 
11564 (156 colonnes. 160 cps) à 
8.000 F HT. Une imprimante à jet 
d'encre couleur. modèle PJ 10804, 
80 colonnes et 37 cps. à 7500 F 
AT. 


À remarquer encore une interface 
série. donc utilisable pour l’Imagewri- 
ter d'Apple. permettant en appuyant 
sur une touche spéciale toute recopie 
d'écran: c'est la Print It de Text- 
Print. vendue 199 dollars. 


Enfin, un logiciel particulièrement in- 
téressant, conçu notamment pour 
l'magewriter, permet d'imprimer 
n'importe quelle image écran de 
l'Apple. en couleurs. et en zoomant 
sur des détails. C'est le Printogra- 
pher de Roger Wagner Publishing 
Inc. à 40 dollars. 


Un Apple à tout faire 


Jadis, il fallait acheter une carte Z80 
pour faire tourner des programmes 
CP/M et, parfois, on vous offrait le 
logiciel. Désormais. c'est Micropro, 
l'éditeur de Wordstar, qui offre aux 
Etats Unis une carte CP/M à tout 
acheteur du plus célèbre des traite- 
ments de texte! Avec l'Apple, c'est 
vrai, on peut tout faire: connaître 
l'heure grâce à la carte Time Kit de 
Glanmire (un tout petit circuit qui 
s'enfiche sur la prise de jeux), ven- 
due 1150 francs par Micro-Périph 
(compatible ProDOS et Pascal), ou 
gérer un carnet de rendez-vous avec 
Time Trax, un système de ‘gestion 
du temps” livré avec un module hor- 
loge. Une création de Creative Peri- 
pherals Unlimited vendue 100 dol- 
lars. 


On peut aussi évaluer avec l'Apple 
sa vie de couple. “Friends or Lovers” 
de Softsmith Corp doit permettre aux 
couples ‘d'explorer leur relation”. 
Les impétrants peuvent déterminer 
s'ils partagent les mêmes intérêts. 
Tout ça pour 30 dollars, c'est vrai- 
ment donné, moins cher même 
qu'un divorce au Mexique . 
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Vu le nombre de plus en plus grand 
des lecteurs de Pom's utilisant ce 
produit sympathique, nous vous of- 
frons dès ce numéro une rubrique 
Macintosh spécialisée. dont limpor- 
tance croîtra avec le temps. 


Apple //c 


La revue A+. dans son numéro de 
juin, publie une liste des logiciels 
tournant sur le nouvel Apple. Car, 
attention, la compatibilité n’est pas 
aussi totale qu’on le souhaiterait avec 
ls anciens programmes des autres 
Apple IL Voir à ce titre l’article de 
Guy Lapautre. 


Epistole (voir plus haut) est déjà 
adapté et tourne avec la souris du 
nouvel Apple. À noter également 
une extension pour le //c, le “cricket” 
de Street Electronics, qui lui ajoute 
une voix de femme. une voix de 
robot, des effets sonores, des possibi- 
ltés stéréo et en prime une horloge ! 
Pas mal pour un ordinateur qu'on di- 
sait “fermé”. L’imagination des fabri- 
cants de périphériques n'est décidé- 
ment pas en panne. 


La radio communication 
avec l’Apple 

Transmettre des messages en radio- 
télégraphie, en recevoir, ou décoder 
les depêches radio transmises par les 
agences de presse mondiales, c'est 
possible avec l'Apple. Et avec aussi 
quelques efforts, car les interfaces et 
logiciels ne sont pas importés actuel- 
lement. Avec la diffusion de nou- 
veaux Apple et notamment la sortie 
du //c, et la vogue de la communica- 
tion, tout pourrait changer. 


Les messages radio sont en effet 
transmis soit en phonie {on les reçoit 
en clair sur un récepteur), soit en 
morse, soit encore en télégraphie. Il 
y a déjà quelque temps que les radio 
amateurs ont remisé au grenier les 
manipulateurs pour se doter du cla- 
vier d’un micro-ordinateur, sur lequel 
ils pianotent leurs messages. Cette 
communication-là, régie par des lois 
strictes, est réservée aux passionnés 
titulaires d’une licence (ils peuvent 
cependant utiliser les interfaces et lo- 
giciels que nous allons décrire). 


Mais les progrès des microproces- 
seurs permettent surtout de cons- 
truire à des prix raisonnables (dans 
les 3000 F) des décodeurs qui affi- 
chent sur un moniteur (ou impriment 
à la demande) et en clair les messa- 
ges reçus. Voir s'afficher sur l'écran 
une depèêche venue de Tirana ou un 
message émis par un bateau en mer 
a indiscutablement un côté magique. 
Avec un Apple, c'est encore mieux, 
car on peut stocker sur disquette les 
messages reçus. 
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Pour recevoir des émissions lointai- 
nes, il faut d’abord une bonne an- 
tenne particulièrement dégagée. 
C'est un must”. Sans antenne, pas 
de réception. 

Vient ensuite un récepteur de trafic 
multibandes. Citons notamment le 
FRG7700 de Yaesu, ou mieux. l'ICR 
71 d'icom Prix: entre 5000 et 
10.000 francs. 

Pour relier le récepteur à une carte 
série RS232C. il faut encore une in- 
terface. Vous avez le choix entre le 
CP1 d’Advanced Electronic Applica- 
tions Inc (200 dollars), l’Interfacell de 
Kantronics (270 dollars) ou encore le 
MFJj 1224 de MFÿ enterprise (100 
dollars). 


Les messages décodés entrent dans 
l'Apple par l'extension série. Reste 
encore à gérer ces communications. 
C'est l'affaire des logiciels de Kantro- 
nics : Hamsoft, 30 dollars pour gérer 
l'écran et contrôler la vitesse des 
transmissions: Hamtext (100 dollars) 
sert à sauver les messages sur dis- 
quette, transmettre depuis une dis- 
quette, indiquer l'heure des transmis- 
sions, etc. Attention, ce passe-temps 
devient très vite obsédant. Bonjour 
les nuits blanches. 


Les tableurs 


Courant mai, Pom's a vu Practicaic 
Il (Apple ‘84, Londres), un tableur 
(nous en reparlerons) offrant du trai- 
tement de texte, de la gestion de fi- 
chiers. de la consolidation, ., et ca- 
pable d'utiliser directement un disque 
dur et des fichiers Basic. 


Nous avons aussi reçu récemment, 
bien qu'il soit sorti depuis quelque 
temps déjà Visicalc Advanced 
Version de Visicorp : il s'agit là de la 
version avancée de Visicaic antérieu- 
rement disponible sur l'Apple /// seu- 
lement et longtemps attendue sur le 
le. Une des particularités de VAV est 
d'autoriser, comme l’a fait plus ré- 
cemment Lotus 1-2-3, la pré-pro- 
grammation de séquences de tou- 
ches. En outre, les possibilités de 
formatage et les fonctions sont nette- 
ment plus nombreuses. 


Flashcalc enfin, lui aussi produit de 
Visicorp, a fait son apparition à 
Apple Expo. Un des principaux ob- 
jectifs de Flashcalc, qui a beaucoup 
de points communs avec Magicalc, 
est d'assurer une rapidité de calcul à 
toute épreuve. Nous n'avons pas en- 
core pu tester celle-ci en vraie gran- 
deur, n'ayant eu entre les mains 
qu'une version bridée à 6K. 


Disquettes de 
démonstration 
De nombreux lecteurs, soit de par 


leur éloignement géographique, soit 
parce que leurs revendeurs sont mal 


approvisionnés ou peu disponibles, 
ont des difficultés à se faire une idée 
des produits nouveaux. C’est pour- 
quoi Pom's a décidé d'offrir à ses 
lecteurs la possibilité d'acquérir à bas 
prix (celui des disquettes de Pom's. 
le meilleur rapport performance/prix 
du marché) les disquettes de dé- 
monstration en sa possession, sous 
réserve bien entendu que le fabricant 
ou limportateur du produit donne 
son accord explicite. Dans le cadre 
de ce nouveau service, nous offrons 
dès à présent, comme vous pouvez 
le voir sur le bulletin d'abonnement, 
les disquettes de démonstration de 
CX Système et de Jane. Les fabri- 
cants ou importateurs de logiciels qui 
seraient intéressés par ce moyen très 
rapide de faire mieux connaître leurs 
produits peuvent nous proposer leurs 
disquettes. 


Adresses 


Advanced Electronic Applica- 
tions - PO Box C2160 - Lynnwood, 
WA98036 - USA. 

Artsci - 5547 Satsuma Av. - North 
Hollywood, CA 91601 - USA. 

ASAP - 3 avenue des Trois Peuples 
- 78180 Montigny le Bretonneux - 
Tél (3) 043.82.33. 

BIP - 13 rue Duc - 75018 Paris - Tél 
2554463. 

Creative Peripherals Unlimited - 
1606 SClementine Anaheim, CA 
92802 - USA. 

Dark Star System - 78 Robin 
Hood Way - Greenford Middiesex - 
UB67QW - GB. 

Dune Associates - PO Box 1631 - 
Kailua - HI96734 - GB. 

Intec - 41/45 Knights Hill Westnor- 
wood - London - SE 270HS - GB. 
Kantronics - 1202 E 23rd Street - 
Lawrence. KS 66044 - USA. 

MFJ3 - Box 494 - Mississippi State, 
MS 39762 - USA. 

Micro-Périph - 62 rue Ducouédic - 
75014 Paris - Tél 321.53.16. 

Roger Wagner - 10761 Woodside 
Av.SuiteE - PO Box 582 - CA 92071 
- USA. 

Softsmith Corporation-1431 Doo- 
lil Drive - San Leandro, CA 94577 
- USA. 

Sierra On Line - 
CA93614 - USA. 
Softsmith Corp (pour Friends and 
Lovers) - 2935 Whipple Road - 
Union City, CA 94587 - USA. 
Street Electronics - 1140 Mark 
Av. - Carpinteria, CA93013 - USA. 
TextPrint - 8 Blanchard Rd - Bur- 
lington, MA 01803 - USA. 
Practicorp Ltd. - Goddard Road - 
Whitehouse Industrial Estate - Ips- 
wich -  Suffolk IP1 SNP - 
GB. 

Visicorp - 1 place Gustave Eiffel 

- Silic 241 - 94568 Rungis Cedex - 
Tél 687.61.01. 
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Les nouvelles du Macintosh 


Hervé Thiriez 


On peut résumer le développement 
du Macintosh à l'aide d'un petit 
exemple comparatif : il a fallu deux 
ans et demi pour vendre les 50.000 
premiers Apple Il Plus, sept mois 
pour les 50.000 premiers IBM FC, 
deux mois un quart pour les 50.000 
premiers Macs … ll y en avait partout 
à Apple Expo sur les stands, des 
piles de cartons d'emballage de Macs 
étaient présentées, maïs très peu de 
stands pouvaient effectivement en 
proposer à la vente immédiate. Les 
petits futés (parmi les revendeurs) qui 
s'en sont vite aperçus n'ont pas at- 
tendu pour vendre leurs Macs plus 
cher que le prix public conseillé, ce 
qui est peu fréquent dans le monde 
de la micro-informatique ! Idem pour 
les disquettes 3,5 pouces: il ne res- 
tait plus que des Memorex dont'(sur- 
prise !) le prix a augmenté dès que 
fut constatée la rupture de stock des 
concurrents (Sony et Hewlett Pa- 
ckard). La rançon de la gloire … 


Pour ma part, je reste tout à fait en- 
thousiasmé par le Mac, mais consi- 
dère qu'il faut absolument avoir un 
second lecteur de disquettes pour 
pouvoir travailler avec confort. Si 
lon s’en prive, on est condamné à 
jongler avec les disquettes à la moin- 
dre lecture ou sauvegarde de fichier. 


Le logiciel 


Les programmes commencent à se 
multiplier. LA liste des programmes 
déjà disponibles ou pratiquement dis- 
ponibles (visibles mais non encore 
vendus) augmente sans cesse. Au ca- 
talogue Apple du 20 juin, on trouvait 
MacWrite/MacPaint à 1.586 FF, Mul- 
tiplan US. à 2.206 FF et Basic Mi- 
crosoft à 1.696 FF. 


Déjà disponibles ou sur le point de 
l'être, nous avons remarqué à Apple 
Expo : 

— Muitiplan en version française; 

— Basic Microsoft en version fran- 
çaise, 

— CX MacBase, qui n’a plus grand 
chose à voir avec CX Système: 

— Omnis; 

— PES, avec File et Report; 

— La Pierre Mobile, jeu écrit par 
Bruno Rives, que les lecteurs de 
Pom's ont déjà vu à l'oeuvre; Bruno 
est le responsable en France de la fa- 
mille Apple des produits 68000; 

— Eleugram, une disquette de jeux 
mensuelle dont le numéro 1 était 
proposé à Apple Expo, vendue par 
Compusoft, une jeune entreprise 
française malgré son nom à conson- 
nance anglaise (en effet, ce nom 





sonne mieux que Calcumou ..); 
— et cette liste n'est pas limitative 


Attendus aussi à court terme : 
—Think Tank: 


— Chart de Microsoft; 

— le Pascal déjà célèbre du Macin- 
tosh; 

— Lotus 1-2-3 (pas encore de confir- 
mation officielle); 


—dB Master. 


Particulièrement remarquable mais 
encore invendu en France, le carnet 
d'adresses d'Habadex. A l'écran de 
Mac, un superbe graphisme repré- 
sentant un carnet alphabétique, il 
suffit de cliquer les lettres pour l’ou- 
vrir. À mi-chemin entre l'agenda et la 
base de données. Etonnant. La 
revue A+ de juin donne une liste 
détaillée des logiaels à paraître ou 
déjà parus pour le Mac. Et notam- 
ment, dès juillet, les jeux d’Infocom 
(Zork, Infidel, etc.). Ceux de Penguin 
(Transylvania, The Quest) sont déjà 
disponibles aux Etats-Unis. 


Périphériques 


Le catalogue Apple du 20 juin pro- 
pose seulement le disque supplémen- 
taire (4.622 FF) et le clavier numéri- 
que (963 FF), 


Tout le monde pouvait voir au stand 
de Symbiotic à Apple Expo leur dis- 
que dur, tout récemment commercia- 
lisé pour le Macintosh. Il y aura bien- 
tôt du choix en la matière avec le 
Davong et les autres, qui ne tarde- 
ront pas à se mettre de la partie. 


MacPaint 


H arrive avec MacPaint, alors qu'il 
semble y avoir au moins 20K dispo- 
nibles sur la disquette, que l’on ob- 
tienne le message "Le disque est sa- 
turé, veuillez effacer des documents 
ou changer de disque”. Il faut alors 
sortir, avec toutefois, heureusement, 
la possibilité d'effectuer préalable- 
ment une sauvegarde. 


Pourquoi le disque est-il saturé” 
quand il semble encore y avoir de la 
place ? La raison en est la suivante : 
de façon automatique, MacPaint 
vous protège en permanence contre 
une extinction intempestive des lu- 
mières” en conservant automatique- 
ment l'état de votre travail dans des 
fichiers baptisés Paintl et Paint2. Ces 
fichiers disparaissent dès que vous 
terminez normalement une séance de 
travail avec MacPaint. 


Si par contre il y a une interruption 
anormale, ces deux fichiers se trou- 
vent sur la disquette, grâce à quoi 
votre prochaine séance débutera au- 
tomatiquement par le chargement de 
Painti et Paint2, le fichier étant alors 
baptisé “Récupéré” à l'écran. 


il faut 20 à 30K pour loger à tout 
moment Paintl et Paint2. ce qui ex- 
plique par conséquent le fameux 
message indiquant la saturation. 
Vous pouvez d'aæleurs constater ce 
que nous venons de vous expliquer 
en éteignant votre Mac alors qu'un 
fichier MacPaint sans importance est 
chargé : vous verrez en rallumant 
l'appareil (attendez quelques minu- 
tes) que les fichiers Paintl et Paint2 
se trouvent effectivement sur la dis- 
quette. Lors de la mise en oeuvre de 
MacPaint, vous obtiendrez ensuite le 
chargement du fichier: il s’appelera 
"Récupéré”, et les fichiers Paintl et 
Paint2 disparaîtront du catalogue si 
vous quittez ensuite MacPaint de 
façon normale. 


Recopie d’écran 


Si vous avez bien lu la documenta- 
ton, vous savez probablement que 
l'on peut à tout moment obtenir une 
recopie de l'écran sur imprimante 
avec Commande-Shift-4. Par contre, 
en faisant Commande-Shift-3, vous 
envoyez la recopie d'écran sur dis- 
quette, où elle devient un fichier 
MacPaint sous le nom ScreenX 
(X=0, 1, 2, .. automatiquement). 


Ce fichier MacPaint est par consé- 
quent (comme tout fichier MacPaint) 
modifiable à loisir et intégrable en to- 
talité ou en partie dans un fichier de 
texte MacWrite. 


Copie de disquettes 


Apple vient de sortir une disquette 
de copie rapide, permettant de co- 
pier une disquette entière en quatre 
passes avec le seul lecteur intégré. 
Pour aller plus vite, ce programme 
utilise la mémoire écran du Mac, qui 
se remplit alors de caractères farfelus. 
Ne vous en faites pas, tout est nor- 
mal … 


Utilisation de 
programmes américains 


Si vous utiisez des programmes ra- 
menés des USA, ou non encore fran- 
cisés, par exemple le Basic US et le 
Muitiplan US de Microsoft, vous pou- 
vez les modifier de façon à pouvoir 
utiliser pleinement le clavier français 
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et les caractères accentués. La procé- 
dure à suivre est la suivante : 


— effectuer préalablement une copie 
de la disquette à modifier (facultatif, 
mais on ne sait jamais}; 

— redémarrer avec la disquette “Dis- 
que Système” française livrée avec le 
matériel: 

— éjecter cette disquette, 

— introduire la disquette du logiciel à 
modifier, 

— copier le fichier System” de la 
disquette "Disque Système” sur la 
disquette du logiciel à modifier (quel- 
ques échanges de disquettes peuvent 
être nécessaires). 


Si je prends la plume pour vous 
écrire. c'est tout d’abord pour vous 
Éliciter pour votre revue. En fait. je 
ne l'aurais pas fait il y à six mois. En 
effet, je suis possesseur d'Apple H 
Plus depuis un an et, ayant entendu 
parler de Pom's, j'ai acheté, peu 
après l'Apple, les numéros 4, 5 et 6. 
N'étant qu'un novice, je me deman- 
dais ce que voulait dire le charabia 
des programmes et, parfois, des art- 
cles. Mais, ayant progressé, j'ai relu 
récemment ces numéros et V ai 
trouvé une foule de renseignements 
et des programmes  consistants, 
n'ayant rien à voir avec ceux d’au- 
tres revues. Je voudrais donc savoir 
comment m'y abonner. 


D'autre part, j'ai relu farëcle sur 
Haifa dans le numéro 5. Je voudrais 
aussi savoir à quel prix je pourrai le 
recevoir. 

Dominique Gilles - 91610 Balan- 
court’ Essonne 


Merci pour votre lettre qu nous ras- 
sure sur le bien-fondé de notre politi- 
que éditoriale de ‘’nivellement par le 
haut”. Je joins à cette lettre un bulle- 
tn d'abonnement à Pom's, sur le- 
quel vous trouverez tous les rensei- 
gnements nécessaires. 


En ce qui concerne le programme 
Haifa, vous le trouverez sur la dis- 
quette d'accompagnement du nu- 
méro 5. La disquette Haifa Source. 
quant à elle, reprend simplement les 
programmes source en assembleur 
Lisa 2,5, qui n'avaient plus la place 
de se loger sur la disquette du nu- 
méro 5. Cette disquette intéresse 
donc les lecteurs qui souhaitent ana- 
lyser et/ou modifer le programme 
Haifa. Les disquettes du numéro 5 et 
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Bug sur la disquette 
MacWrite/Paint 


Avec la première série des disquettes 
MacWiite/Paint. il était impossible 
d’initialiser correctement une  dis- 
quette vierge à partir du bureau, ou 
de travailler correctement avec plu- 
sieurs disquettes. Cela tient aux infor- 
mations contenues dans les pistes de 
boot (celles qui se lisent à l'allumage 
de l'appareil) de la disquette Mac 
Write/Paint. 


Vous pouvez remédier au problème 
avec l'une des solutions indiquées ci- 
dessous : 


@ soit copier le logiciel Macw- 
rite/Paint sur une autre disquette: 

e soit démarrer à partir d'une autre 
disquette, l'éjecter, puis insérer la 
disquette Macwiite/Paint. 


Bibliographie 


Nous avons remarqué deux ouvra- 
ges, dont l'analyse paraîtra dans le 
numéro de septembre : 


— Mac, produit par Microsoft, avec 
une couverture type graffiti rouge. 

— Macintosh, Multiplan, MacPaint, 
de Eddie Adamis chez Cedic/Nathan, 
à 89 FF. 


Courrier des lecteurs 


Haïfa Source sont vendues 55 francs 
pièce. 


Sur les 11 disquettes de Poms que 
j'ai reçues, j'en ai 3 qui ne bootent 
plus. Pourriez-vous m'expliquer ce 
qui se passe et me dire s'il ÿ a 
moyen de réparer autrement qu’en 
faisant INIT HELLO et en recopiant 
tous les fichiers par FID ? 


Monsieur Jean-Michel Vélin - 50450 
Gavray 


Ce qui pourrait expliquer qu'il y ait 
parfois des problèmes au niveau du 
boot, c'est que le DOS se trouve sur 
le bord extérieur de la disquette. Si 
celle-ci a été quelque peu écrasée 
par les PTT, c’est en effet le bord qui 
souffre en premier. |] est possible 
d'utiliser des logiciels tels que Locks- 
mith, Super Copy, Copy II+ (4.1 à 
4.3) … pour recopier seulement les 
pistes O, 1 et 2 (celles du DOS), sans 
pour autant avoir à initialiser et à re- 
copier fichier par fichier. 


Carte Eve Chat Mauve 


L'ablation du buffer dont je vous ai 
parlé dans ma lettre (Pons 12) n'est 
hélas pas sans conséquence, comme 
je le pensaïs initialement. Je me suis 
aperçu par la suite que cela empêche 
Visicalc Advanced Version de fonc- 
tionner, ce logiciel ne reconnaissant 
alors plus l'extension mémoire 64K 
ni les routines 80 colonnes. Par 
contre, l’ancien Visicalc les reconnaît 
sans problème, de même que Multi- 
plan. Allez savoir pourquoi … 


Jean-Pierre Januel - 75009 Paris 


Alexandre Duback 


La rubrique reste donc ouverte … 


Par votre intermédiaire, je voudrais 
m'adresser aux possesseurs de //e 
qui envisagent d'acheter la carte 
Chat Mauve, afin de leur éviter de 
faire une bêtise. C'est vrai qu'on 
peut avoir la couleur, mais en peut 
aussi l'avoir avec un poste PAL- 
SECAM et un câble à 100 francs. I 
est vrai qu'avec la carte Chat Mauve 
et le logiciel Purplesoft. on peut véri- 
tablement faire du graphisme HGR 
couleur. C'est remarquable d'effica- 
cité. Malheureusement. dès que lon 
fait un petit programme Basic de plus 
de 25K, il écrase les routines du 
Purplesoft et plus rien ne marche. 
Vous avez donc une machine avec 
128K dont 25 réellement utilisables. 
On n'arrête pas le progrès / En outre, 
la carte ne permet plus d'imprimer 
avec le Pascal et une imprimante 
Epson ou Microline (NDLR: avec 
notre Oki92, cela marche); on peut 
enlever le circuit intégré au-dessus du 
T de CHAT MAUVE, mais alors 
Apple Writer ne marche plus … 


À. Delacourte - 59155 Faches Thu- 
mesnil 


Et voilà ! Votre lettre se joint au dos- 
sier. 


NDLR - Aux demières nouvelles, il 
s'avère que la carte Eve Chat Mauve 
n'a nen à voir avec les problèmes 
rencontrés avec l'Epson. La carte 
graphique Epson n'admet pas que 
d’autres cartes utilisent le bus de 
données en même temps qu'elle : le 
problème rencontré avec la carte 
Chat Mauve se présente aussi avec 
des cartes horloge, ou d'autres 
cartes, Ce n'est pas le cas avec la 








carte 80 colonnes étendue, car celle- 
ci n'utilise que le connecteur auxi- 
liaire. Merci M. Januel, pour cette 
demière infonnation. 





J'ai lu dans un numéro de Pons 
que, si tous les sloë sont occupés, 
cela ne peut pas marcher. Or, tous 
mes slots seront occupés, à part le 
slot numéro 7. avec les cartes que 
j'envisage d'acheter. Qu'en pensez- 
vous ? 


Monsieur J-C Decret - Bordeaux 


On peut utiliser tous les slots simulta- 
nément, mais il se peut alors que, 
soit l'appareil ne ‘’boote” plus, soit il 
le fasse mais connaisse des pannes 
aléatoires dues à la surchauffe. Tout 
cela tient plus au type des cartes 
qu’à leur nombre: certaines cartes 
tirent” beaucoup et fonctionnent 
comme des radiateurs. Si l'appareil 
ne boote plus, on peut récupérer la 
situation, dans certains cas, en rem- 
plaçant des composants standards de 
l'Apple par des composants de 
même nature, mais plus puissants 
(voir pour cela votre revendeur). S'il 
y a surchauffe, on peut utiliser l’un 
des nombreux modèles de ventila- 
teurs spécialisés. De toute façon. 
vous pouvez toujours emmener votre 
Apple chez votre revendeur pour voir 
s’il boote toujours après l'adjonction 
des nouvelles cartes que vous envisa- 
gez d'acquérir. 





Dans le POKESs à gogo. de Roland 
Jost {Pom's 11), je note le POKE 
214,255. Pour en sortir, l'auteur indi- 
que qu'il faut passer en langage ma- 
chine et faire "D6:00”. Mais le POKE 
inhibe les CAËLS. Comment passer 
en moniteur sans le CALL —-151 ? 


S. Querret - 59760 Grande Synthe 


Votre remarque au sujet du POKE 
214,255 est tout à fait pertinente. 
L'humour marquant la suggestion de 
faire un CALL pour rétablir la situa- 
tion, alors que les CALLSs ne sont 
plus possibles après le POKE, est en 
effet involontaire. 

Pour revenir en assembleur sans pas- 
ser par CALL -—151, il suffit d'utiliser 
ce qu'indique Jacques Duma dans sa 
lettre publiée dans le Courier des 
Lecteurs du Pom's 6 (page 66). Utili- 
sez un des numéros d'instruction 
entre 437760 et 440319, ce qui a 
pour effet de vous placer à un en- 
droit imprévu (et variable) en mé- 
moire, par exemple avec ‘440008 
A=1”. À moins que vous n'ayez la 
malchance de tomber sur une bou- 
cle, vous finirez pas arriver sur un 
BRK (code O0), ce qui vous ”’plan- 
tera” et vous mettra donc en mode 
moniteur, 

Il ne restera plus alors qu'à faire le 
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D6:00 qui annihilera l'effet du 
POKE, non sans toutefois faire dispa- 
raître le programme Basic qui aurait 
résidé préalablement en mémoire. 


5 semble que l'écriture sur l'écran ne 
marche pas dans MATGRAPH, parce 
que les tables ne figurent pas dans la 
liste parue dans le Pom's 10. Ne 
pourriez-vous pas les publier dans un 
prochain numéro ? 


Pierre Arnaud - 92260 Fontenay aux 
Roses 


Cela n’a pas marché car il y a un 
problème avec la partie de AL- 
PHAGR publiée dans le Pom's 10. 
Comme la plupart des lecteurs sont 
abonnés aux disquettes, ce problème 
n'avait pas encore été soulevé. Il y a 
en effet eu une troncature abusive et 
une partie du code a été oubliée, de 
9272 à 928D. 

À titre correctif, nous listons ci-des- 
sous le code hexa de ALPHAGR en 
entier, y compris la partie où les chif- 
fres et les lettres ont été définis à 
l’aide du programme de création de 
polices de caractères (Pom's 8). 


En réponse au courrier de M. Januel 
(Pom's 12), voici la modification du 
programme MENU des disquettes 
Porn's qui permet l'impression sur 
une Epson avec interface Apple : 


70 POKE 34,24:PRINT D1$"PR#"S 
71 PRINT CHRS$(0) 

72 PRINT CHR$(27)'A"CHR$(10) 
73 POKE 165780 

75 CALL 37989 

76 PRINT CHR$(27),CHR$(50) 

77 PRINT D$"PR#0" 

78 TEXT 


Alain Meizoz 





Je vous informe de la création du 
club informatique ‘Bellegarde Info" à 
Bellegarde sur Valserine, dans 'Ain 
près de Genéve. Nous possédons un 
Apple //e en configuration de base. 
deux ZX81 et bientôt un ordinateur 
intermédiaire. 

Pierre-Jean Giraud - 3 allée Paul 
Claudel - 01200 Bellegarde 





Avec Apple Writer 20 (et non Ye) et 
une Epson MX-82, comment faut-il 
faire pour obtenir les caractères spé- 
ciaux ? J'utilise aussi le Magicalc fran- 
çais qui, par ailleurs, ne donne au- 
cune indication à ce sujet, Comment 
faut-il faire ? Enfin, comment incor- 
porer des tableaux Magicalc en 
Apple Wiiter 2.0 ? 


Docteur Docteur Séror - 17, rue 
Georges Messier - 64400 Oloron 
Sainte Marie 


Pour utiliser des caractères spéciaux, 
je vous conseille "Donnez du carac- 
tère à votre imprimante”, du Pom's 
9, et Les codes ASCII épluchés” du 
Poms 4. Pour Magicalc. il faut met- 
tre les caractères comme pour Muilti- 
plan, mais non précédés de l'accent 
circonflexe. 

Magicalc n'est pas tout à fait compa- 
tible Visicalc. comme vous pourrez le 
voir avec le fichier que nous publions 
dans ce numéro (Lève:-toi et brille). 
Enfin. pour incorporer des tableaux 
Visicalc ou Magicalc dans un traite- 
ment de texte qui utilise des fichiers 
TEXT, il suffit de les sauvegarder 
sous forme de fichiers d'impression 
sur disquette (PRINT in SAVE for- 
mat). 


Amélioration de GES- 


COMPTE 
Michel Herlaut 


Je me permet dajouter une petite 
modification au programme de ges- 
tion de compte bancaire de Domini- 
que Compère {Poms 10) Le sous- 
programme que je vous propose ici 
(10000 à 10520) calcule le solde du 
relevé du compte après la vérification 
des opérations. En plus de ce sous- 
programme. il convient d'ajouter àu 
programme les lignes suivantes : 


237 
3i75 


IF TEWOIN = : THEN RETURN 
IF A!$ / “R° THEN GCSUE 16080 
+ GCTD SÛaÙ 

IF TENOIN = i THEN 8700 

IF TENCIN = 1 THEN RETURN 

IF TT = 6 AKD B = O THEN G8FE 
30 


9625 iF TEROIN = | AND M#ID$ (TBSIB 
),28,1) =“ * THEN GOTÈ 640 
9626 IF TEMOIN = i AND B = O AND T7 


{ } 0 THEN 9640 


3645 IF TENOIN = : THEN RETURN 

La commande "R'" permet le bran- 
chement vers le sous-programme. 
Les données nécessaires sont le mois 
et l'année de départ (MMAA) Le 
sous-progamme effectue alors la 
sauvegarde du mois en cours de trai- 
tement si nécessaire. puis le calcul du 
solde en ne prenant en compte que 
les opérations déjà vérifiées. jusqu'au 
dernier mois créé. 

Je me permek d'ajouter encore deux 


lignes indispensables pour la bonne 
marche du programme original : 


9512 A2$ = STR$ (A2) 

11085 VTAB !: HTAB 32: INVERSE : BR 
INT MIDS (THS(0),32,9):: MR 
LE 
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10000 REM 

16010 REM es CALCUL RELEVE &re 

10026 REX 

10025 TEMOIN = 1 

10630 L25 = "MOIS, ANNEE DE DEPART :” 
113$ = "RALEVE": 6OSUB 5500 

10840 INPUT N3,R9 

10050 LF M9 = me THEN 10120 

10066 »$ = STRS IMJ):AAS = STRS ( 


160930 GUSUB 2200 

10100 Ci = NB: GOSUE 11010 

10110 REM 

10120 A2 = NB - !: 60SUB 04 

10130 ONERR GOTU 10300 

10140 IF MN = 12 THEN MN = GMA = R 
A+i 

16150 dt = MM + 1:MNS = STARS (AM) :A 
f$ = STR$ (A) 

10160 M01S$ = THS(MN): GUSUB 1406: 5 
OSUB 1210 

10170 OSNS = LIBELLES + AGISS + * * 
+ STRS$ (MA) 

10175 PRINT 

10180 PRINT D$°VERIF Y"DSNS 

101% POXE 216,0: POKE 772,0 

10200 GBSUB 8650: G8SUE 2280:Ci = N 
B: GOSUB 11610:A2 = NB - i: G 
OSUB %10 

10216 GOTÉ 10150 

10304 REN 

10310 PCKE 216,0: PE 22,0 

10320 4 = MN - 1: IF Mn = 0 THEN 


=1Z:M = -1 

10825 NS = STRS (MM): ANS = STRS { 
A) 

16330 GOSUB 1400:MN$ = STRS 1MJ:A 
f$ = STR$ (AA) 


10340 WDISS = TMS) 

10550 OSN$ = LIBELLES + MGIS$ + * * 
+ STR$ (AA) 

10370 REX 

10600 L3$ = “RELEVE”:L2$ = "RELEVE D 
E COTE = ” * STRS (TT): GE 
SUB 5500 

10405 CALL - 668 

10450 TENGIN = © 

19500 GET WS 

10510 GOTO 3010 

10520 REX 


Le fichier ALPHAHGR de MAT- 
GRAPH était incomplet dans la liste 
du numéro 10. Voici à ce titre cor- 
rectif la liste complète de AL- 
PHAHGR. 
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© 0 ut mt mt CD mt dm CD 
LOmmnnOnNnDL-oSoLn NO ED OR TN 


te dt CD dt CD tt nt Det mt D td D ne © et D © ne un 0 ee DO OO me DO OO + DOOOOOOS—mmO Co 
— OOOOme OO OOo O0O0O0O0OOOO One OO —e 


en en LD en fn PTT nn V7 2e ut 
+ DO 0 D ue © OO © — 
Bnmersnecmesgnor-mnenn 
LL 2-11: 
SeasRR ep 
S2O0OO—ONN Time Die Vh mn OS ee OO ee me pe 0 MO OONSO NN=nOCOS nn 
Buts 

SSSSNSDRENDeD De RemmMmemhO Meme -eMRRO RON -eOLCCS 


20000000 — .—— 


9268- FF FF 00 00 FF FF 00 00 
9270- FF FF 01 OA 09 88 90 21 
9278- 01 21 11 32 A9 00 AB 81 
9280- 85 8D 72 92 CB 81 85 85 
9288- EE C8 81 85 85 EF AD 73 
290- 92 4A 4A 4A BD 7A 92 MA 
9298- OA OA 85 ED AD 73 92 38 
92A0- ES ED 85 EC A9 20 8D 79 
92A8- 92 AS ED 0A 0A 18 65 ED 
9280- 80 78 92 AS EC 4A 85 EC 
9288- AD 78 92 90 02 69 7F 8D 
92C0- 78 92 18 AS EC 60 79 92 
92C8- 80 79 92 18 AD 74 92 60 
9200- 78 92 8D 78 92 A9 00 6 
9208- 79 92 80 77 92 18 A9 00 
92E0- 80 78 92 A2 00 A9 00 85 
92E8- FA AD 7B 92 85 EC AD 77 
92F0- 92 85 ED AC 78 92 89 AB 
92F8- 93 38 E9 20 80 7A 92 85 
9300- F9 06 F9 26 FA 06 F9 26 
9308- FA 06 F9 26 FA 38 A5 F9 
9310- ED 7A 92 85 F9 AS FA E9 
9318- 00 85 FA 18 AD 75 92 65 
9320- F9 85 F9 AD 76 92 65 FA 
9328- 85 FA A9 00 AB 81 F9 8D 
9330- 7A 92 A9 00 AB AD 7A 92 
9338- 91 EC EB A9 04 18 65 E0 
9340- 85 ED AS F9 69 01 85 F9 
9348- AS FA 69 00 85 FA 84 C9 
9350- 07 DO 07 18 AD 7B 92 69 
9358- 01 8D 78 92 AD 77 92 69 
9360- 00 80 77 92 EE 78 92 AD 
9368- 78 92 CD 72 92 FO 03 4C 
9370- E3 92 60 00 00 20 20 20 
9378- 20 20 20 20 FF FF 00 00 
9380- FF FF 00 00 FF FF 00 00 
9388- FF FF 00 00 FF FF 00 00 
9390- FF FF 00 00 FF FF 00 00 
9398- FF FF 00 00 FF FF 00 00 
9340- FF FF 00 00 FF FF 00 00 
9348- 52 46 52 45 FF FF 00 00 
9380- FF FF 00 00 FF FF 00 00 
9388- FF FF 00 00 FF FF 00 00 
93C0- FF FF 00 00 FF FF 00 00 
93C8- FF FF 00 00 FF FF 00 00 
9300- FF FF 00 00 FF FF 00 00 
9308- FF FF 00 00 FF FF 00 00 
93E0- FF FF 00 00 FF FF 00 00 


93E8- FF FF 00 00 FF FF 00 00 
93F0- FF FF 00 00 FF FF 00 00 
93F8- FF FF 00 00 FF FF 00 00 
9400- FF FF 00 00 FF FF 00 00 
9408- 78 FF 00 00 FF FF 00 00 
9410- FF FF 00 00 FF FF 00 00 
9418- FF FF 00 00 FF FF 00 00 
9420- FF FF 00 00 FF FF 00 00 
9428- FF FF 00 00 FF FF 00 00 


9440- FF FF 00 00 FF FF 00 00 
9448- F8 FF 00 00 FF FF 00 00 
9450- FF FF 00 00 FF FF 00 00 
9458- 7F FF 00 00 FF FF 00 00 
9460- FF FF 00 00 FF FF 00 00 


dè 2 48 BLHS-ES FRIN UD 29-08 4e 85-07 4e p00 fl nm 
2 ete 2 ÉD AE AU PETAN ON ME M Hs 2 DE p2 t 


=" 
2 
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9468- FF FF 00 00 FF FF 00 00 
9470- 01 00 04 00 18 24 20 20 
9478- 36 36 3F 3F 24 00 00 00 
9480- FF FF FF FF FF FF FF FF 
9488- FF FF FF FF FF FF FF FF 
9490- FF FF FF FF FF FF FF FF 
9498- FF FF FF FF FE FF FF FE 
94h0- FF FF FF FF FF FF FF FF 


94A8- FF FF FF FF FF FF FF FF 
9480- FF FF FF FF FF FF FF FF 
9488- FF FF FF FF FF FF FF FF 
94C0- FF FF FF FF FF FF FF FF 
94C8- FF FF FF FF FF FF FF FF 
9400- FF FF FF FF FF FF FF FF 
9408- FF FF FF FF FF FF FF FF 
94E0- FF FF FF FF FF FF FF FF 
94E8- FF FF FF FF FF FF FF FF 


94F0- FF FF FF FF FF FF FF FF 
94F8- FF FF FF FF FF FF FF FF 
9500- 00 00 00 00 00 00 00 00 
9508- 00 00 00 00 00 00 00 00 
9510- 00 00 00 00 00 00 00 00 
9518- 00 00 00 00 00 00 00 00 
9520- 00 00 00 00 00 00 00 00 
9528- 00 00 00 00 00 00 00 00 
9530- 00 00 00 00 00 00 00 00 
9538- 00 00 00 00 00 00 00 00 
9540- 00 00 00 00 00 00 00 00 
9548- 00 00 00 00 00 00 00 00 
9550- 00 00 00 00 00 00 00 00 
9558- 00 00 00 00 00 00 00 00 
9560- 00 00 00 00 00 00 00 00 
9568- 00 00 00 00 00 00 00 00 


9570- 00 00 00 00 00 00 00 00 
9578- 00 00 00 00 00 00 00 00 
9580- FF FF FF FF FF FF FF FF 
9588- FF FF FF FF FF FF FF FF 
9590- FF FF FF FF FF FF FF FF 
9598- FF FF FF FF FF FF FF FF 
9SA0- FF FF FF FF FF FF FF FF 
9SA8- FF FF FF FF FF FF FF FF 
9580- FF FF FF FF FF FF FF FF 
9588- FF FF FF FF FF FF FF FF 
9SC0- FF FF FF FF FF FF FF FF 
95C8- FF FF FF FF FF FF 20 20 
95D0- 20 20 20 20 20 20 20 20 
95D8- 20 20 20 20 20 20 20 20 
9SE0- 20 27 49 dE 46 4F 2E 43 
95E8- 41 44 52 45 53 27 20 20 
9SFO- 20 20 27 49 4E 46 4F 2E 
95F8- 43 41 44 52 45 53 27 04 





Lecteur assidu de votre revue, j'ai- 
merais savoir si quelqu'un possède 
les notices d'emploi en français de 
Magic Window et Locksmith 5.0. 


Philippe Le Guen - 49, rue Paul Bert 
- 54520 Laxou 


Comme vous le comprendrez certai- 
nement, il n'est pas possible à Pons 
de vous transmettre des photocopies 
de docs de programmes commer- 
ciaux. Nous nous mettrions dans 
notre tort en recourant à de telles 
pratiques, et notre souhait de rendre 





service aux lecteurs ne peut aller jus- 
que là. À notre connaissance, la no- 
tice en français de Magic Window 
existe (faite par Ordinateur Express 
voir Pom’s 11), mais pas celle de 
Locksmith 5.0. 


Heureux possesseur d'un Apple Ye 


et d'une imprimante Facit 4510, je 


. suis un de vos fidèles lecteurs et vous 


appelle au secours. Dès que je veux 
faire de la recopie d'écran, je suis 
perdu. 


Dans Pons 9. vous avez eu l'excel- 
lente idée de publier le programme 
GrafText, qui marche très bien pour 
la Facit 4510 avec seulement quel- 
ques modifications. Je vous serais re- 
connaissant si vous pouviez, dans un 
prochain numéro, proposer un pro- 
gramme de recopie d'écran HGR 
pour mon imprimante. 


Paul Genesio - 80 rue de Rome - 
13006 Marseille 


Malheureusement, nous ne pouvons 
pas vous recommander ici de pro- 
gramme de copie d'écran HGR pour 
la Facit. Il n'existe pas de programme 
général de recopie d'écran HGR, et 
chaque programme de ce type de- 
mande un certan temps de mise au 
point et, surtout, que l’on ait Pimpri- 
mante (ou une bonne doc) sous la 
main. Nous ne connaissons personne 
ayant un programme adéquat pour 
votre imprimante. 


Tout ce que je peux faire pour vous, 
c'est de publier votre lettre. Ainsi, si 
un lecteur possède déjà un tel pro- 
gramme pour la Facit, il pourra vous 
le faire savoir. Dont acte ! 


Sur les conseils d'un technicien d'Ap- 
ple Seedrin. nous vous soumettons 
un problème concernant Apple Wri- 
ter : il semble d'après cette personne 
que votre revue ait fait paraître un 
article répondant à notre question. 
Pour pouvoir employer l'imprimante 
qui équipe notre système, nous 
devons envoyer le code ASCII nul 
{0}, ce qui à l’origine n'est pas possi- 
ble avec Apple Wiiter. Comment 
faire ? 

L. LECA - Chatelier Conseil - 75015 
Paris 


Nous avons publié dans le numéro 4 
de Pom's {ou Recueil No 1) l’article 


Neal 





"Les codes ASCII épiuchés”, qui 
pennet de voir quels sont les caractè- 
res à envoyer pour obtenir tel ou tel 
code ASCIL L'article Donnez du ca- 
ractère à votre imprimante” du 
Pom's 9 montre comment vous pou- 
vez utiliser des codes imprimante à 
partir d'Apple Writer. Nous avons 
aussi dans le numéro 12 un artide 
plein de trucs pour Apple Writer. 


Malheureusement. le code O est un 
code bien spécial indiquant la fin d'un 
fichier. Si on commence un fichier de 
TEXT par ce code. ce texte sera vide, 
et ce pas seulement avec Apple Wri- 
ter. Dilemne ! La solution vous est 
offerte dans le Pom's 10, au Courrier 
des Lecteurs (page 71): il faut modi- 
fier le programme Apple Writer/’e. 


Message aux lecteurs 


Nous recevons de plus en plus de 
lettres nous demandant comment il 
faut faire avec la configuration W. 
l'imprimante X, l'interface Y et le lo- 
giciel Z pour obtenir le résultat R! Il 
y à tellement de combinaisons possi- 
bles que nous ne pouvons pas faire 
des recherches à chaque fois. Nous 
répondons donc à ces lettres quand 
nous pouvons y aniver rapidement. 
mais pas autrement : à vrai dire. c'est 
d’ailleurs le travail des fabricants de 
matéiel et de logiciel. En outre. nous 
donnons la priorité aux lettres nous 
parvenant accompagnées d'une en- 
veloppe timbrée pour la réponse. 


Certains lecteurs nous ont posé des 
questions, suite à certaines informa- 
tions qu'ils ont pu lire dans une autre 
revue francophone sur Apple, ou à 
certains bruits. Nous leur précisons. 
pour répondre à ces questions. que : 


— le /c est incompatible avec le 
Duodisk comme avec les lecteurs du 
[le où du Il Plus; 

— le réseau Apple-Bus fonctionnera 
initialement sur 680680 seulement 
pour tous types de fichiers, et par la 
suite (probablement) pour les fichers 
TEXT avec les familles 6502 et 
68080; 

— à court tenne, seul le Lisa peut 
servir d'outil de développement pour 
le Macintosh: ultérieurement, ce sera 
aussi possible de développer avec 
deux ”’Macs” reliés ensemble. [| 


44, 
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LE MODEM QUI REND L'APPLE MINITELLIGENT 


Apple-telf comprend : 


« Une carte Modem Imcluant un 
décodeur T eletel 


. Un logiciel d'Emulation de 
Ternunal Minitel enrichi de trois 
éblcuissantes fonctions (celles 
qu faisaient le plus défaut 
Jusqua présent sur voire 
Minitel) 


IMPRESSION : linprimante de 
vetre Apple est exploitée pour 
Sortir les copies-papier dont 
veus avez besoin lorsque vous 
consultez un serveur 


STOCKAGE : ies csqueites de 
votre Apple sont uülisées Bour 
enregistrer les sages dont la 
consultation vous est 

fecessaire 


+ au format Teletel (cest-a-dire 
‘eles que vous les avez reçues) 
‘er moce Texte pur (ASCII) 
pour exæloitation locale 

stérieure 


AUTOMATISME : l'intelligence 
ce votre Apgle est rnobilisée 
œur accornplir l'interrogation 
estomatique du serveur que 
ous lui avez désigné (asgel 
‘phonique. orientation 
TRANSPAC. identification. cheix 
successifs), enregistrer Sur 
papier et, ou Sur disque les 
domées consultées, suis pour 
iaiter celles-ci. en les 
ncorgorant dans votre 
asplication 

Les srocédures d'interrogation 
sont créées par l'utiisateur, sans 
aucun language de 
sogramnation. grâce au mode 
t'apgrentissage Apgle - Tell.) 


£vénement du dernter 
SICOB. salué par toute la 
p'esse, consacré Porume d'Or 
1983 par le Jury Apple. le: 
megdem Agple-Tell marque une 
mutation décisive dans 
évolution des techniques 
yidéotex en envirannernent 
srofessionnel 


* peint d'arrêt a la proïferation 
&æs matériels Sur votre bureau 
leitet ‘runi-Sicob"} 


. Ltilisation optimale des 
ressources dont vous disposez 
céja édisques. Imprimante 
legiciels, etc ,) 


. Utitsation possible 
Ternunal autant qu en 111ode 
serveur (lUsSquà quatre portes) 


« Entin {ei cest sans 18 
gont l& Blus 1iBortani, 
JONCTI@N entre le ronde 
exteneur et les outils standards 
ce votre Apple lincorporation 
es connees dans Apple-wrier 
Visicalc. Multislan. PFS. Quick 
Fie. etc... et mére dans vos 
3pplcations persenriclles 
cemptabiité suivi de 
cenimandes. fichier j devieri 
sessible 
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Bibliographie 


Le FORTH en douceur, de Michel 
Henric-Coll, Editions Evrolles - 143 
pages - 90 FF. 


Cet ouvrage a été conçu comme une 
étude progressive du langage Forth 
pour débutants en informatique. H a 
été présumé que le lecteur ne possé- 
dait pas encore de connaïssance 
dans ce domaine et n'avait pas non 
plus appris un autre langage de pro- 
grammation. C’est pourquoi il n’est 
pas structuré en chapitres homogè- 
nes et exhaustifs, que l’on pourrait 
directement consulter à la manière 
d’un dictionnaire. Ceci dit, un glos- 
saire fourni en fin d'ouvrage se ré- 
vèle très utile durant la lecture et plus 
tard, lors de l’utilisation du langage. 
À chaque chapitre est associé un en- 
semble d'exercices dont les conigés 
se trouvent en annexe. 


Jean-Luc Boyer 


Débutez en FORTH, de Leo Bro- 
die, Editions Evrolles - 305 pages - 
130 FF. 


Ce livre est la traduction française de 
l'ouvrage "Starting FORTH"!, préfacé 
par l'auteur du langage, HMoore. 
En premier lieu, cet ouvrage 
s'adresse à des débutants en infor- 
matique qui désirent s'initier au lan- 
gage FORTH. Mais malgré cela, les 
informaticiens de métier y trouveront 
des informations très intéressantes 
dont l'accès est facilité par une table 
des matières complète et un résumé 
des mots Forth accompagnés d’une 
indication de la page où ils sont pré- 
sentés. À la descript'on du langage et 
de ses possibilités sont associés des 
dessins qui en facilitent la compré- 
hension. À la fin de chaque chapitre, 
un résumé permet d’en mémoriser le 
contenu, et une liste de problèmes 
est fournie. En conclusion, cet ou- 
vrage original par sa présentation est 
très complet, et devrait donc satis- 
faire l’ensemble de ses lecteurs. 


Jean-Luc Bover 


Pangraphe par Jean-Pierre Petit 
(dessins en trois dimensions en Basic 
pour Apple Il - Editions du P.S.I.). 


Ouvrage curieux, mêlant le plus 
grand sérieux mathématique et la 
folie débridée de la bande dessinée 
d'anticipation. 

Une culture mathématique de base 
est à l'évidence nécessaire pour se 


- ZUCER Rav 
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diriger sans trop de difficultés dans le 
labyrinthe des lignes trigonométr.- 
ques. Üne connaissance solide du 
Basic est également nécessaire pour 
suivre la “traduction” en programme 
de nombre d'options. Mais un grain 
d'humour est tout aussi indispensable 
pour ne pas s'irrter des facéties de 
BERNIE ou d'ARTHUR (de char- 
mants robots)... 

J'ai aimé ! 

Avec un air de ne pas v toucher, 
l'auteur emmène son lecteur assez 
loin, aussi bien dans les lois de la vi- 
sion binoculaire que dans les élé- 
ments de géométrie descriptive per- 
mettant de comprendre en pro- 
fondeur la formation et l'interpréta- 
tion des images. 


Cela étant, il ne faut pas croire qu’on 
va pouvoir créer avec Pangraphe un 
système de dessin révolutionnaire, 
ultra-rapide et ultra-précis. Pangra- 
phe est essentiellement un outil di- 
dactique, même si des utilisations 
réelles peuvent s'appuyer sur les pro- 
grammes. Mais l'écriture de quelques 
moduies en assembleur ne serait pas 
un perfectionnisme douteux si on 
voulait vraiment en faire un outil 
opérationnel. 


Un regret: le millier d'instructions 
(au moins) que représente Pangra- 
phe peut bien évidemment être tapé 
au clavier, mais au prix de combien 
d'heures et de combien d'erreurs ? 
J'en ai tapé un certain nombre pour 
faire des test et j'ai eu des problè- 
mes avec l'un des tracés. Est-ce une 
erreur de programmation, de typo- 
graphie ou de frappe? Au bout 
d'une demi-heure, j'ai abandonné. 
Pourquoi diable, puisque c’est l'esprit 
de la collection “Utilisations de l'ordi- 
nateur”, ne pas avoir accompagné ce 
livre d’une disquette ? 


Üne petite pointe bête et méchante, 
pour punir l’auteur de m'avoir fait 
tellement travailler sur mon clavier : 
le LOMEM, sur l'Apple, n’a jamais 
permis de loger le programme au- 
dessus de la valeur fixée, mais uni- 
quement les variables. Soit dit tout à 
fait entre nous, si le programme ne 
tenait pas dans les 14K disponibles 
sous la page 2, comment pourrait-il 
tenir entre le haut de cette page et le 
DOS (nettement moins de 14K) ! 


Guy Mathieu 


Le système MemDos par Pierre 
Clerc - EdiTests - 102 pages - 90 F. 


Après un rapide historique du pro- 
duit et de ses créateurs. cet ouvrage 
présente les différentes instructions 
du MemDos, tant en ce qui concerne 
la gestion des masques d’en- 
trée/sortie que celle des fichiers. 

On regrettera un certain manque de 
rigueur au niveau de l'introduction 
des concepts dans la partie descrip- 
tive “littéraire”. C'est ainsi que le 
programme illustrant la restitution des 
informations à l'écran s'articule sur la 
lecture d'un fichier. alors que les ins- 
tructions de lecture des fichiers ne 
sont traitées que dans les pages sui- 
vantes. De même. on voit apparaître 
des tests du type ’IE WS > 0.” 
sans que le rôle particulier de cette 
variable WS dans le système 
MemDos ait été préalablement expli- 
qué clairement. 


Par ailleurs. il n'est pas fait explicite- 
ment mention de certaines précau- 
tions d'emploi, comme la nécessité 
de remettre les variables d’un mas- 
que à zéro avant une opération de 
saïsie (sinon les anciennes valeurs 
sont conservées par défaut alors que 
l'utilisateur croit avoir saisi une don- 
née ’vide” par un RETURN à vide). 
ou les risques que comporte une ins- 
truction LET”#R..." sur un fichier à 
accès par clé après une instruction 
LET"X...” si le fichier n'a pas été re- 
fermé puis ré-ouvert avant sa réorga- 
nisation. 


À porter au crédit de cet ouvrage 
une présentation par ordre alphabéti- 
que des instructions, sous forme de 
fiches techniques reprenant la sun- 
taxe et le champ d'application de 
chacune d'elles. 

Mais le programmeur désirant s'initier 
à la pratique du MemDos tirera sur- 
tout profit de l'exemple d'application 
proposé. !l s'agit en effet d'un pro- 
gramme développé en détail. de la 
conception des masques de saisie 
jusqu’à l'écriture complète des diffé- 
rents modules de traitement, en pas- 
sant par la définition des structures 
des fichiers nécessaires. On y trouve 
finalement une présentation conden- 
sée et concrète des possibilités du 
système. 

En conclusion, ce livre peut apporter 
une aide complémentaire à la lecture 
de la documentation livrée avec le 
système (et toujours aussi touffue.….), 
maïs il aurait gagné, du point de vue 
de flutilisateur débutant, à une dé- 
marche plus progressive et mieux 
structurée dans ses développements. 


Alexandre Duback 
C1 
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Les autres disquettes de 
Pom's 


Poms a lancé, à l'occasion de son 
précédent numéro. deux disquettes 
moins ludiques, proposées chacune à 
450 FF TTC. 


Disk Manager, de Dan Steerev. est 
un programme utilitaire qui permet 
de recréer les commandes du DOS 
et de programmer simplement, à par- 
tir du Basic. des utilitaires personnali- 
sés de gestion du disque qui seraient 





beaucoup plus longs à programmer 
en assembleur. C'est à la fois un pro- 
gramme d’une grande utilité et un 
excellent outil pédagogique pour 
comprendre le DOS. Quatre utilitai- 
res. écrits à l'aide du Disk Manager. 
sont fournis en prime sur la dis- 
quette: Utli-Disque (reconstruction 
de disquette, vérification. ..), Ultra- 
Copie (programme de eackup très 
rapide), Edicat (éditeur de catalogue) 
et Multi-Disque (gère des fichiers de 
catalogues. opère des tris, ..) Docu- 
mentation de 50 pages. 








DBSTAG disquette CP/M pour la 
création de statistiques et de graphi- 
ques à base d'histogrammes (impres- 
sion non graphique) à partir de fi- 
chiers de données sur DBASE IL Ce 
logiciel peut exploiter. sans limitation 
ni transformation. toute sase de don- 
nées construite sous DBASE I I 
peut fonctionner seul. ou en sous- 
programme d'un programme écrit 
par lutilisateur. Documentation dé- 
taillée. comportant un exemple traité, 
imprimable à partir de la disquette. 


MON COMPTABLE : 
JE L'Ai REMPLACE 
PhR un ï 
MICRO ORDINATEUR / | 











LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 


Fos 


DONNEZ-NOUS VOTRE DISQUETTE 


poseuse. 





NOTRE RÉFÉRENCE... LA REVUE POM'S 


PAR TELEPHONE 
ou 


Les textes de vos articles, catalogues, anriuaires ou brochures 
saisis sur votre APPLE sont envoyés directement sur notre photocom- 


Nous vous évitons ainsi, le coût et le temps de la saisie supple- 
mentaire que nécessite le traitement traditionnel de la photocompo- 
sition avant l'impression des documerits, si vous le désirez nous pou- 
vons également nous charger de l'impression et du brochage. 


(I 


PHÔOTOCOMFDSINON … GESTION DE FICHIERS 
BUREAUTIQUE MATANEL 8E 
TRANSANSSION DE DOMMEES TRAITEMENT DE TEUTES 





TRANSMETTEZ-NOUS VOS TEXTES 





H616.08 


15 4 *5 34e du Pont Par 
JO MCENNES 
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L.: 
LE 3 


CELITE LE EE CETTE TEE EEE REES 





Montant 





























IC 
e la disquette HAIFA Source| | au prix de 55 F la disquette (cf. Pom’s n° 5) _ |__| 
e le logiciel H-BASIC { | au prix de 150 F (cf. Pom'’s n° 8) ei) 
e le logiciel MUSIC [| au prix de 80 F (cf. Pom'’s n° 10) | 
e le Disk Manager [_] au prix de 450 F (cf. Pom'’s n° 11) | 
e DBSTAG (CP/M) [ ] au prix de 450 F (cf. Pom’sn° 11) 
e Disquette de jeux À [_] au prix de 80 F (cf. Pom'’s n° 12) 
e Disquette de jeux B [_ ] au prix de 80 F (cf. Pom'’s n° 12) 
e le logiciel BASICIUM [_] au prix de 150 F (cf. Pom'’s n° 13) 
e la disquette de démo au prix de 55 F la disquette 





[]CX Système [_] Jane 


e Recueil n° ide Pom'’s {n° 1 à 4) 
[_] avec ses 3 disquettes au prix de 280 F | 
[_] sans disquette au prix de 130 F | 
[] les 3 disquettes seules au prix de 150 F ln... | 














e Recueil n° 2 de Pom’s (n° 5 à 8) 
[_] avec ses 4 disquettes au prix de 320 F os 2), _ _ 


[_] sans disquette au prix de 130 F_ + 
[] les 4 disquettes seules au prix de 190 F | 














Je désire recevoir : 
e les numéros de la revue Pom’s [ ]4 []7 []8 
au prix de 35 F le numéro 


e les numéros de la revue Pom’s [ ]9 []10 []11 []12 []13 
au prix de 40 F le numéro 








e les disquettes d'accompagnement des numéros |]1 []2 []3 []l4 
SENTE ER OL El A2 
au prix de 55 F par disquette | 





Je désire m’abonner pour 6 numéros à partir du n° 
[] sans disquette au prix de 200 F 


[_] avec disquettes au prix de 480 F À 
TOTAL : 


Envoyez ce bon de commande et votre règlement à : 


Éditions MEV — 64-70, rue des Chantiers — 78000 Versailles 


Nom 











Adresse 








Ces tarifs comprennent l'envoi postal en France Métropolitaine, CEE et Suisse {voie aérienne exceptée) 
Supplément avion : 10 F par numéro et / ou disquette 
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EN VENTE 
DANS TOUS LES 
id(eRTe]ti x 


supplément de 64 pages 
cahier de vacances 


à l'essai : Casio PB700, 
Electron, MOS 
les ordinateurs autonomes 


Mbasic, logo 


les fiches programmes 


Avignon : le 2° 
Festival du logiciel 


le A 
AÏ = SLA 


GRAND ee 
GAGNEZ DES ORDINATEURS 
AVEC France inter ET WE-56 


JUILLET-AOÛT 84 - 256 F BELGIQUE 207 FB- CANADA 3,65 $ C - SUISSE 7,5FS 












La création 





Pomme d'Or 84 du meilleur logiciel 


L'informatique appartient aux créateurs. Artistes de l'ordinateur : craquez et 
croquez la Pomme d'Or Apple84 du meilleur logiciel. Jusqu'au 30 octobre 1984, pour 
votre création, Apple vous offre la consécration. Votre concessionnaire-parrain 
vous assistera dans 14 mise en forme et le pré-test de veire logiciel. Chaque lauréat 
recevra. outre Le Trophée. un Macintosh et verra son programme édité et distribué. 
Pionniers de la nouvelle culture, par votre imagination devenez star de la program- 
mation, Avec Apple, apprenez l'homme à la machine. 


OUR AMGUKLA, CAYZAC À DENItA NI 


apple 


le goût du savoir 
Pour ebienir le règilementet votre dossier de partiopation. files Lampenner le ceupon-réponse ci-joint Tampon du Concessionnaire de 
parleCencessionninre agréé Apple de voire choix et adressez-le pour inscription à Apple Éducation 

à l'attention de Jen Luc Lebrun, avenue de l'Océanie. Z] de Courtabœuf. 9X)44 Les. Ulis. BP 1AI 

‘Tél. (6) 928.01.39 Veuillez m'inscrire à lt Ponune d'Or Apple du meilleur logiciel 1984 





Nom __ Prénom _ —_ 
Adresse _ ; 
Profession ___ Téléphone 
“Le nom Apple el le logo Apple sont des marques dépesées par Apple Cemputer Inc. LL il 


Nom du Concessionnaire Feb. 


